It may be a little late now but here's a funky little subroutine from merlyn that distinguishes between numbers and strings

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

The original post can be found here.
HTH

_________
broquaint