testing

edevog · Oct 22, 2015 · 0aa68ac · 0aa68ac
1 parent 3fd6c6a
commit 0aa68ac
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/week8/01-palindrome.pl b/week8/01-palindrome.pl
@@ -4,14 +4,13 @@
 use warnings;
 use autodie;
 use feature "say";
-use Data::Dumper;
 
 unless (@ARGV){
     die "Please provide a word or phrase.\n";
 }
 
 my $input = lc(shift);
-$input =~ s/[..., ]//g;
+$input =~ s/[^A-Za-z0-9]//g;
 my $rev_input = reverse $input;