именно в таком порядке?
или
if ($Form{email} =~ /aol\.com$/) {print_error 'Боты отокуют!!!'}