Merge pull request #9337 from robbie-hatley/rh250

Fixed error in 250-2.

1 files changed, 3 insertions, 3 deletions

diff --git a/challenge-250/robbie-hatley/perl/ch-2.pl b/challenge-250/robbie-hatley/perl/ch-2.pl
index 39c22eb77e..af08afe279 100755
--- a/challenge-250/robbie-hatley/perl/ch-2.pl
+++ b/challenge-250/robbie-hatley/perl/ch-2.pl
@@ -77,17 +77,17 @@ 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"
-#of the elements of an array of alphanumeric strings?
+# of the elements of an array of alphanumeric strings?
 sub max_alnum_string_value ($aref) {
    return max map {alnum_string_value $_} @$aref;
 }