Oops.

1 files changed, 4 insertions, 1 deletions

diff --git a/challenge-018/roger-bell-west/perl5/1.pl b/challenge-018/roger-bell-west/perl5/1.pl
index 7d6f3a92f5..7e952a9cdd 100755
--- a/challenge-018/roger-bell-west/perl5/1.pl
+++ b/challenge-018/roger-bell-west/perl5/1.pl
@@ -3,6 +3,8 @@
 use strict;
 use warnings;
 
+use List::Util qw(max);
+
 print map {"$_\n"} lcsubstr(@ARGV);
 
 sub lcsubstr {
@@ -17,7 +19,8 @@ sub lcsubstr {
     foreach my $a (@a) {
       map {$b{$_}=1} lcsubstr2($a,$c);
     }
-    @a=sort keys %b;
+    my $m=max(map {length($_)} keys %b);
+    @a=sort grep {length($_)==$m} keys %b;
   }
   return @a;
 }