Select Code to Download

 
# untested!
use Regexp::Common;
...
 # determine if numberish.  roll-your-own or i prefer CPAN.
 return $s =~ /$RE{num}{real}/;
}