# Find out if, and why not (if not):
my ($is_valid, $msg) = verify_email('$tmp_EMAIL_lc');
One possible reason the $tmp_EMAIL_lc e-mail address is always bad is that the single-quotes of the expression '$tmp_EMAIL_lc' do not interpolate, so what is passed to verify_email() is always the literal string '$tmp_EMAIL_lc'.
Use double-quotes or, better still, no quotes at all.c:\@Work\Perl\monks>perl -wMstrict -le "my $tmp_EMAIL_lc = 'this will not interpolate'; print '>$tmp_EMAIL_lc<'; " >$tmp_EMAIL_lc<
Give a man a fish: <%-{-{-{-<
In reply to Re: Verifying Email Addresses
by AnomalousMonk
in thread Verifying Email Addresses
by knuppn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |