diff options
| -rw-r--r-- | challenge-148/steven-wilson/perl/ch-01.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-148/steven-wilson/perl/ch-01.pl b/challenge-148/steven-wilson/perl/ch-01.pl index 2132073e65..28e7f90674 100644 --- a/challenge-148/steven-wilson/perl/ch-01.pl +++ b/challenge-148/steven-wilson/perl/ch-01.pl @@ -14,5 +14,5 @@ my $max = 100; say "Eban Numbers <= $max:"; for ( 1 .. $max ) { - ( num2en($_) =~ /e/ ) ? next : say $_; + ( num2en($_) =~ /e/i ) ? next : say $_; } |