fist challenge done

1 files changed, 26 insertions, 0 deletions

diff --git a/challenge-084/jluis/perl/ch-1.pl b/challenge-084/jluis/perl/ch-1.pl
new file mode 100755
index 0000000000..809cec9b94
--- /dev/null
+++ b/challenge-084/jluis/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use 5.010;
+
+if (@ARGV != 1 ) {
+	say "You need to provide an integer";
+	exit
+}
+my $N = $ARGV[0];
+
+if ($N =~ /^([+-]?)(\d+)$/) {
+	my $sign    = $1;
+	my $new_val = reverse $2;
+  	$new_val = 0 if (!$sign or $sign eq q(+)) and $new_val > 2147483647;
+	$new_val = 0 if $sign eq q(-) and $new_val > 2147483648;
+	say $sign,$new_val;
+} else {
+	say "($N)An integer consist of an optional sign and dgits ";
+}
+
+
+
+
+