- Tidied up Perl solutions.

2 files changed, 4 insertions, 8 deletions

diff --git a/challenge-064/mohammad-anwar/perl/ch-2.pl b/challenge-064/mohammad-anwar/perl/ch-2.pl
index 4bd9fbb5ea..1b0a0b4fc1 100644
--- a/challenge-064/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-064/mohammad-anwar/perl/ch-2.pl
@@ -7,17 +7,13 @@ my $string = "perlweeklychallenge";
 my $words  = [ "weekly", "challenge", "perl" ];
 my $match  = word_break($string, $words);
 
-(@$match)
-?
-(print sprintf("Matched: %s\n", join (", ", @$match)))
-:
-(print "None matched.\n");
+print sprintf("%s\n", join (", ", @$match));
 
 sub word_break {
     my ($string, $words) = @_;
 
     my $matched = [ grep { $string =~ /$_/i } @$words ];
-    return 0 unless scalar @$matched;
+    return [0] unless scalar @$matched;
 
     my $search_order = {};
     foreach my $word (@$matched) {
diff --git a/challenge-064/mohammad-anwar/perl/ch-2a.pl b/challenge-064/mohammad-anwar/perl/ch-2a.pl
index 173655dac7..f340608fdd 100644
--- a/challenge-064/mohammad-anwar/perl/ch-2a.pl
+++ b/challenge-064/mohammad-anwar/perl/ch-2a.pl
@@ -9,7 +9,7 @@ use Test::Deep;
 is_deeply(word_break("perlweeklychallenge", [ "weekly", "challenge", "perl" ]),
           [ "perl", "weekly", "challenge" ], "match test");
 is_deeply(word_break("perlandraku", [ "python", "ruby", "haskell" ]),
-          0, "no match test");
+          [ 0 ], "no match test");
 
 done_testing;
 
@@ -17,7 +17,7 @@ sub word_break {
     my ($string, $words) = @_;
 
     my $matched = [ grep { $string =~ /$_/i } @$words ];
-    return 0 unless scalar @$matched;
+    return [0] unless scalar @$matched;
 
     my $search_order = {};
     foreach my $word (@$matched) {