From 9c1aaa40ba91b86aa1a3b9d189f711e0b534e3b4 Mon Sep 17 00:00:00 2001
From: Cris-HD <59669732+Cris-HD@users.noreply.github.com>
Date: Sun, 16 Feb 2020 21:48:10 +0100
Subject: Added second challenge

---
 challenge-047/cristian-heredia/perl/ch-2.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 challenge-047/cristian-heredia/perl/ch-2.pl

diff --git a/challenge-047/cristian-heredia/perl/ch-2.pl b/challenge-047/cristian-heredia/perl/ch-2.pl
new file mode 100644
index 0000000000..3fcab7d918
--- /dev/null
+++ b/challenge-047/cristian-heredia/perl/ch-2.pl
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+
+#Gapful Number
+#Write a script to print first 20 Gapful Numbers greater than or equal to 100. Please check out the page for more information about Gapful Numbers.
+
+my $max = 20;
+my $counter = 0;
+my @divided;
+my @solution;
+
+for (my $number = 100; $counter < $max; $number++) {
+	my $newNumber;
+	@divided = split(/d?/, $number);
+	$newNumber = @divided[0].@divided[@divided-1];
+	if (($number % $newNumber) == 0) {
+		push(@solution, $number);
+		$counter++;
+	}
+}
+print "The first $max Gapful Numbers are:\n";
+
+for (my $i = 0; $i < @solution; $i++) {
+	print "@solution[$i]\n";
+}
\ No newline at end of file
-- 
cgit