if ($TestEMail =~ /\w+@\w+\.\w{2,3}/) {print "$TestEMail\n";} Joseph
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
if ($TestEMail =~ /\w+@\w+\.\w{2,3}/) {print "$TestEMail\n";} Joseph
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]