foreach $FILE (@FILES) {
        local $/;

       open(FILE,"<",$FILE) or die $!;
       my $string = <FILE>;

      close(FILE);
    $string =~ s~.*<div class="scroll".*?>~~i;   # loesche alles vor dem div
      $string =~ s/\n//g;