2 files changed, 2 insertions, 6 deletions
diff --git a/challenge-002/paulo-custodio/perl/ch-1.pl b/challenge-002/paulo-custodio/perl/ch-1.pl
index bb82c75446..8bafbe57a7 100644
--- a/challenge-002/paulo-custodio/perl/ch-1.pl
+++ b/challenge-002/paulo-custodio/perl/ch-1.pl
@@ -5,9 +5,7 @@
 # Challenge #1
 # Write a script or one-liner to remove leading zeros from positive numbers.
 
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
 
 my($N) = @ARGV;
 $N =~ s/^0+(\d)/$1/;
diff --git a/challenge-002/paulo-custodio/perl/ch-2.pl b/challenge-002/paulo-custodio/perl/ch-2.pl
index 487857b096..bad58bb556 100644
--- a/challenge-002/paulo-custodio/perl/ch-2.pl
+++ b/challenge-002/paulo-custodio/perl/ch-2.pl
@@ -7,9 +7,7 @@
 # representation, using the characters 0-9 and A-Y. Dave Jacoby came up
 # with nice description about base35, in case you needed some background.
 
-use strict;
-use warnings;
-use 5.030;
+use Modern::Perl;
 
 use constant { BASE => 35 };
 my @digits = ('0'..'9','A'..'Z');