diff options
| -rw-r--r-- | challenge-076/walt-mankowski/perl/ch-2.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-076/walt-mankowski/perl/ch-2.pl b/challenge-076/walt-mankowski/perl/ch-2.pl index 1fc95c63bd..cef1882581 100644 --- a/challenge-076/walt-mankowski/perl/ch-2.pl +++ b/challenge-076/walt-mankowski/perl/ch-2.pl @@ -83,7 +83,7 @@ sub read_grid($grid_name) { my @c = split //, $line; $grid[$row][0] = ' '; for my $i (0..$#c) { - $grid[$row][$i+1] = $c[$i]; + $grid[$row][$i+1] = lc $c[$i]; } $grid[$row][$width-1] = ' '; $row++; @@ -105,7 +105,6 @@ sub parse_dict($dict_name, $min_len) { chomp $word; next unless length($word) >= $min_len; next unless $word =~ /^[a-z]+$/; - $word =~ tr/a-z/A-Z/; $words{$word} = 1; for my $len (1..length($word)) { |