opendir(DIR, 'originale');
my @files = grep{ /jpg|JPG/ }readdir(DIR);
my $im = 0;
foreach (@files) {$im++;}
close (DIR);

my @list = split(/\n/, $teile[1]);
$list[($im+1)*3+$im] =~ s/<\/td>/<!--\/td>/;
my $mitte = join ("\n",@list);