while (my $line = <>) {
        foreach my $output (split /\s+/, $line) {
                if ($output =~ /^[-\w.]+@([a-z0-9][a-z-0-9]+\.)+[a-z]{2,4}$/i) {
                        print $output . "\n";