in reply to help with a Perl term
eval "$val= ; "; if ( $@ eq "") { print "this is valid"; } else { print "$@ is invalid"; } [download]