diff options
| -rwxr-xr-x | challenge-185/perlboy1967/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-185/perlboy1967/perl/ch-2.pl b/challenge-185/perlboy1967/perl/ch-2.pl index e972e05120..d5cca9c7ff 100755 --- a/challenge-185/perlboy1967/perl/ch-2.pl +++ b/challenge-185/perlboy1967/perl/ch-2.pl @@ -27,7 +27,7 @@ sub maskcode { state $re = '([^0-9a-z]*)([0-9a-z])' x 4; my @r; for (@_) { - push(@r,s/^$re/$1x$3x$5x$7x/or); + push(@r,s/(?i)^$re/$1x$3x$5x$7x/or); } @r; } |