...
@datei = (split /<\/td>/, <DATEI>);
foreach $datei(@datei) {
$datei =~ /.*?(.*?\@.*?,)(\d{6,}).*?/;
my ($a, $b, $c) = ($1, $2, $3);
if ($b <= $zahl) { $datei =~ s/.*?(.*?\@.*?,)(\d{6,}).*?//; }
@dateineu = (join /<\/td>/, @datei); }
...