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