#!/usr/bin/perl -w
use strict;
use File::Tail;
my $line="";
my $file = File::Tail->new(name=>"/var/log/apache2/access.log", maxinterval=>20, tail=>5);
open (STDERR, ">/dev/null" ) or die ("Kann StdErr nicht oeffnen");
while (defined($line=$file->read)) {
next unless $line =~ /rince/i;
(my $vars1, my $vars2) = $line =~ /meine_Regex/;
next unless(defined($vars1));
$vars2 =~ s/ü/ue/g;
$vars2 =~ s/ö/oe/g;
$vars2 =~ s/ä/ae/g;
$vars2 =~ s/ß/ss/g;
$vars2 =~ s//:-\)/g;
$vars2 =~ s//:-\)/g;
$vars2 =~ s//\*biggrin\*/g;
print "" . $vars1 . " " . $vars2 . "\n";
}