my $IsNumber = '/^\d+$/';