sub test_of_number_e
{
  for my $char (unpack('C*',$_[0])){ return 0 if($char<48 || 57<$char); }
  return 1;
}