From 5bc984c14147eacb7ad21a6bfe2fbe5393bba54f Mon Sep 17 00:00:00 2001
From: Gratza <rg@ciphron.de>
Date: Mon, 1 Apr 2019 16:15:26 +0200
Subject: solutions to challenge-002

---
 challenge-002/rob4t/perl5/ch-1.sh |  1 +
 challenge-002/rob4t/perl5/ch-2.pl | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 challenge-002/rob4t/perl5/ch-1.sh
 create mode 100644 challenge-002/rob4t/perl5/ch-2.pl

diff --git a/challenge-002/rob4t/perl5/ch-1.sh b/challenge-002/rob4t/perl5/ch-1.sh
new file mode 100644
index 0000000000..97787b238f
--- /dev/null
+++ b/challenge-002/rob4t/perl5/ch-1.sh
@@ -0,0 +1 @@
+echo "0002345" | perl -pE 's/(?<![-0])0*([\d.,]+)/$1/g'
diff --git a/challenge-002/rob4t/perl5/ch-2.pl b/challenge-002/rob4t/perl5/ch-2.pl
new file mode 100644
index 0000000000..eddf1c0a26
--- /dev/null
+++ b/challenge-002/rob4t/perl5/ch-2.pl
@@ -0,0 +1,19 @@
+my $number = $ARGV[0];
+die "supply a valid integer number" if($number ne int($number));
+
+my @b35 = ( 0 .. 9, 'A' .. 'Y' );
+my @res = ();
+
+sub calc {
+    my $num = shift;
+    return if ( !$num );
+
+    push @res, $b35[ $num % 35 ];
+    calc( int( $num / 35 ) );
+}
+
+calc($number);
+
+my $res = join( '', reverse @res );
+
+print $res . "\n";
-- 
cgit