Help for this page
Select Code to Download
Select
or
download this
sub is_numeric { ($_[0] & ~ $_[0]) eq "0"; }