#!/usr/bin/perl
use strict;
use warnings;
use Date::Parse;

my $file='log.txt';

open(my $fh, '<', $file) or die("Error open $file ($!)\n");

while(my $line=<$fh>)
{
  chomp($line);
  $line=~s/^<pre><p>//;
  $line=~s!</p></pre>$!!;
  if($line=~s!<a href=".+?" target="_blank">(.+?)</a>!$1!g)
  { $line=~s/;;/;/g; }
  $line=~s!&quot;!"!g;
  $line=~s!&amp;!&!g;

  # bereinigte Zeile
  print "$line\n";
}
close($fh);