Simple Perl program to validate an email address using a regular expression