#!/usr/bin/perl

#Parameter 1 muss eine Eingabedatei sein
if(!$ARGV[0]) { print("Bitte eine Eingabedatei angeben!\n"); exit 1; }
#Kann Datei geöffnet werden
if (!open(HANDLE, $ARGV[0])) {
	print("Konnte Datei ".$ARGV[0]." nicht finden!\n");
	exit 1;
}

#Datei zeilenweise abarbeiten
foreach my $line (<HANDLE>) {
	chomp($line); #Leerzeichen vorne und hinten entfernen
	#auf E-Mail prüfen:
	if ($line =~ /^[a-zA-Z][a-zA-Z0-9\._%+-]+@[a-zA-Z0-9_-]+(\.[a-zA-Z0-9_-]+)*\.([A-Za-z]{2,})$/) {
		print $line."\n"; #falls ok: Ausgeben
	}
}

exit 0;