There is always merlyn's classic example

sub is_numeric {
  ($_[0] & ~ $_[0]) eq "0";
}
[download]

And then there's the Inline::C method for testing a scalar Does it look like a number?.
HTH

_________
broquaint