See the following code for matching your pattern.

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

Thanks.