From d1fca5d3f708dbb6e8e1350f5b52e7f44cb92f3f Mon Sep 17 00:00:00 2001
From: Adam Russell <ac.russell@live.com>
Date: Fri, 26 Apr 2019 19:24:12 -0400
Subject: fixed ch-1.pl

---
 challenge-005/adam-russell/perl5/ch-1.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/challenge-005/adam-russell/perl5/ch-1.pl b/challenge-005/adam-russell/perl5/ch-1.pl
index e1b0c61e0a..cca7d2af5b 100644
--- a/challenge-005/adam-russell/perl5/ch-1.pl
+++ b/challenge-005/adam-russell/perl5/ch-1.pl
@@ -37,8 +37,9 @@ my %letter_factor = (
 ##
 # Main
 ##
-my $test_word = $ARGV[0];  
+my $test_word = lc($ARGV[0]);  
 $test_word =~ tr/-//d;
+print "$test_word\n";
 my @letters = split(//, $test_word);
 my $test_word_product = 1;
 map {$test_word_product *= $_} map{$letter_factor{$_}} @letters;
-- 
cgit