if ( $long =~ /^([\-\+]?\d+[\.]?\d*)$/ )
{    print "match\n";  }