#!/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/<img src="images\/wink.gif" alt=";-\)">/:-\)/g;
        $vars2 =~ s/<img src="images\/smile.gif" alt=":-\)">/:-\)/g;
        $vars2 =~ s/<img src="images\/biggrin.gif" alt=":-D">/\*biggrin\*/g;
        print  "<b>" . $vars1 . "</b> " . $vars2 . "\n";
}