use strict;
use warnings;

use Scalar::Util qw(looks_like_number);

use Test::More;

my @in = ('99/999998', '9999*9998', '9999-9998', '9999+9998',
'9999:9998', '9999@:%?', '9999@:%?9998', '9999ABCD9998',);


for(@in) {
   cmp_ok(IsNumber($_), '==', looks_like_number($_), "$_: " . IsNumber($_));
}

done_testing();

sub IsNumber {
   my ($string) = @_;
   my $valid = 0;
   my $count = $string =~ tr/\.//;

   if ( $string =~ m/[a-zA-Z\ \[\]]/ )
   {
      $valid = 0;
   }
   elsif ( $string =~ /[^\x00-\x7F]/ )
   {
      $valid = 0;
   }
   elsif ( $count > 1 )
   {
      $valid = 0;
   }
   elsif ( $string =~ m/[#@':;><,.{}[]=!"£$%^&*()]/ )
   {
      $valid = 0;
   }
   elsif ( $string =~ m/^[+-]?\d+$/ )
   {
      $valid = 1;
   }
   elsif ( $string =~ m/^[+-]?[0-9]+[.]?[0-9]+/ )
   {
      $valid = 1;
   }

   return $valid;
}