Fixed error in 250-2.

1 files changed, 2 insertions, 2 deletions

diff --git a/challenge-250/robbie-hatley/perl/ch-2.pl b/challenge-250/robbie-hatley/perl/ch-2.pl
index 39c22eb77e..07ab378791 100755
--- a/challenge-250/robbie-hatley/perl/ch-2.pl
+++ b/challenge-250/robbie-hatley/perl/ch-2.pl
@@ -77,13 +77,13 @@ BEGIN {$t0 = time}
 # Is a given array ref a ref to a non-empty array containing only alphanumeric strings?
 sub is_array_of_alnums ($aref) {
    'ARRAY' ne ref($aref) || 0 == scalar(@$aref) and return 0;
-   for (@$aref) {!/^[[:alnum:]]+$/ and return 0}
+   for (@$aref) {!/^[a-zA-Z0-9]+$/ and return 0}
    return 1;
 }
 
 # What is the "alphanumeric string value" of a given scalar?
 sub alnum_string_value ($x) {
-   $x=~/^[[[:digit:]]+$/ and return 0+$x or return length($x);
+   $x=~/^[0-9]+$/ and return 0+$x or return length($x);
 }
 
 # What is the maximum "alphanumeric string value"