unless ($val1=~/\A[-+]?\d+\.?\d*\Z/) { #quote here $val1, for example: $val1=$dbh->quote($val1); }