From 08c4d67d1954256ab0016412862ba60ad741be9b Mon Sep 17 00:00:00 2001
From: Duane Powell <duane.r.powell@gmail.com>
Date: Fri, 6 Sep 2019 10:04:20 -0500
Subject: Improve word parsing in build() method

---
 challenge-024/duane-powell/README        | 0
 challenge-024/duane-powell/perl5/ch-2.pl | 2 ++
 2 files changed, 2 insertions(+)
 mode change 100644 => 100755 challenge-024/duane-powell/README

diff --git a/challenge-024/duane-powell/README b/challenge-024/duane-powell/README
old mode 100644
new mode 100755
diff --git a/challenge-024/duane-powell/perl5/ch-2.pl b/challenge-024/duane-powell/perl5/ch-2.pl
index 8cb0bdd84d..8371c68aef 100755
--- a/challenge-024/duane-powell/perl5/ch-2.pl
+++ b/challenge-024/duane-powell/perl5/ch-2.pl
@@ -121,6 +121,8 @@ sub build {
 
 			# Parse and count words in $f 
 			while (<$FH>) {
+				# substitue all non-alpha-numberic chars with space then split on space
+				$_ =~ s/[^a-zA-Z0-9]/ /g;
 				foreach (split(/\s+/,$_)) {
 					$word_count++;
 					my $w = lc($_);
-- 
cgit