open (DATEI, "<", $dateiname) or die "Error: can't read from '$dateiname': $!\n";
my $content = do {
  local $/; # alles nach $content lesen
  <DATEI>;
};
close (DATEI);

while (my $line =~ m|<td>([^<]+)</td>|g) {
  my ($email, $zahl) = split(/,/, $line, 2);
  ....
} # while