EDIT: extract_email_from_log.pl

#!/usr/bin/perl use strict; my $email_count; while (my $line = <>) { #read from file or STDIN foreach my $email (split /\s+/, $line) { if ( $email =~ /^[-\w.]+@([a-z0-9][a-z-0-9]+\.)+[a-z]{2,4}$/i ) { print $email . "\n"; $email_count++; } } } print "Emails Extracted: $email_count\n";

SAVE CHANGES BACK TO DIR