if($number=~m#^[+-]?[\d_]*\.?[\d_]+(?:e[+-]?[\d_]+)?$#)
{ print "ist Zahl"; }