print "10 is ";
if (!isnumeric(10)) { print " not"; }
print " numeric.\n\n";

$a = 10;
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";

$a = "10";
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";

$a = "x1";
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";

$a = "1x";
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";

$a = "1e4";
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";


$a = "0.4";
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";


$a = "-0.4";
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";


$a = "";
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";

$a = 0;
print "$a is ";
if (!isnumeric($a)) { print " not"; }
print " numeric.\n\n";

sub isnumeric()
{
    my ($x) = @_;
    if ((0+$x == 0) && (sprintf("%s",sprintf("%d",$x)) ne $x))
    {return 0;}
    else
    {return 1;}
}