Simple Perl Email Validation Script