# untested!
use Regexp::Common;

sub isnumeric {
 my ($x) = @_;
 # force stringification, if $x is an object.
 my $s = "$x";
 # determine if numberish.  roll-your-own or i prefer CPAN.
 return $s =~ /$RE{num}{real}/;
}