$/="</tr>";
my $testfile;
my @multiarray=();
my @character=();
$testfile = $ARGV[0];
open (FILE, $testfile)or die "Kann FILE nicht geoeffnet werden\n";

while (my $in1 = <FILE>){
  chomp ($in1);
  my @array= split(/\n/,$in1);
  my @character =();
  foreach $in1 (@array) {
    if ($in1=~ /Arial\">(.*?)<\/font>/gio) {
    push @character,$1;
    }
  }     
push @multiarray, [@character];
}
close (FILE) or die "Kann FILE nicht geschlossen werden!\n";