sub check
{
my $value="";
if ($_[0]=~ m/\d+/) { $value=$_[0]; print qq~$_[0] is numeric\n~; } else { $value=""; print qq~$_[0] is not numeric\n~; }
return($value);
}

my $in=0815;
my $out=&check($in);

# have phun!