eval "$val= ; ";
if ( $@ eq "")
{ print "this is valid"; }
else 
{ print "$@ is invalid"; }