keep spaces in grid and remove in code

2 files changed, 20 insertions, 0 deletions

diff --git a/challenge-076/walt-mankowski/perl/ch-2.pl b/challenge-076/walt-mankowski/perl/ch-2.pl
index 48436c9a0e..1fc95c63bd 100644
--- a/challenge-076/walt-mankowski/perl/ch-2.pl
+++ b/challenge-076/walt-mankowski/perl/ch-2.pl
@@ -71,6 +71,7 @@ sub read_grid($grid_name) {
     my $row = 0;
     while (my $line = <$fh>) {
         chomp $line;
+        $line =~ s/ //g;
         if ($width == 0) {
             # make top line
             $width = 2 + length($line);
diff --git a/challenge-076/walt-mankowski/perl/search_grid.txt b/challenge-076/walt-mankowski/perl/search_grid.txt
new file mode 100644
index 0000000000..31cf2e0fd8
--- /dev/null
+++ b/challenge-076/walt-mankowski/perl/search_grid.txt
@@ -0,0 +1,19 @@
+B I D E M I A T S U C C O R S T
+L D E G G I W Q H O D E E H D P
+U S E I R U B U T E A S L A G U
+N G N I Z I L A I C O S C N U D
+T G M I D S T S A R A R E I F G
+S R E N M D C H A S I V E E L I
+S C S H A E U E B R O A D M T E
+H W O V L P E D D L A I U L S S
+R Y O N L A S F C S T A O G O T
+I G U S S R R U G O V A R Y O C
+N R G P A T N A N G I L A M O O
+E I H A C E I V I R U S E S E D
+S E T S U D T T G A R L I C N H
+H V R M X L W I U M S N S O T B
+A E A O F I L C H T O D C A E U
+Z S C D F E C A A I I R L N R F
+A R I I A N Y U T O O O U T P F
+R S E C I S N A B O S C N E R A
+D R S M P C U U N E L T E S I L