Remove List::Util and Data::Dump dependencies

1 files changed, 7 insertions, 2 deletions

diff --git a/challenge-018/paulo-custodio/perl/ch-1.pl b/challenge-018/paulo-custodio/perl/ch-1.pl
index a7c7d65c34..b79fbe788b 100644
--- a/challenge-018/paulo-custodio/perl/ch-1.pl
+++ b/challenge-018/paulo-custodio/perl/ch-1.pl
@@ -12,7 +12,6 @@
 use strict;
 use warnings;
 use 5.030;
-use List::Util 'all';
 
 say "(", join(", ", map {$_=qq("$_")} longest_substr(@ARGV)), ")";
 
@@ -28,7 +27,7 @@ sub longest_substr {
                 next if $longest_len > $len;                # prune search
                 my $substr = substr($str, $s, $len);
                 next if $longest{$str};                     # prune search
-                if (all {/$substr/} @strs) {                # matches all
+                if (all(sub {/$substr/}, @strs)) {          # matches all
                     if ($longest_len == $len) {
                         $longest{$substr}=1;
                     }
@@ -42,3 +41,9 @@ sub longest_substr {
     }
     return sort keys %longest;
 }
+
+sub all {
+	my($sub, @a) = @_;
+	for (@a) { return if !$sub->($_); }
+	return 1;
+}