Solutions for challenge 02

3 files changed, 30 insertions, 0 deletions

diff --git a/challenge-002/vinod-k/README b/challenge-002/vinod-k/README
new file mode 100644
index 0000000000..d86054e10a
--- /dev/null
+++ b/challenge-002/vinod-k/README
@@ -0,0 +1 @@
+Solutions by Vinod Kumar K.
diff --git a/challenge-002/vinod-k/perl/ch-1.pl b/challenge-002/vinod-k/perl/ch-1.pl
new file mode 100644
index 0000000000..e34d7cff21
--- /dev/null
+++ b/challenge-002/vinod-k/perl/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+while(<DATA>){
+    chomp;
+    print "$_ -> ";
+    s/^0+//;
+    print "$_\n";
+}
+
+__DATA__
+110
+001
+202
+050
diff --git a/challenge-002/vinod-k/perl/ch-2.pl b/challenge-002/vinod-k/perl/ch-2.pl
new file mode 100644
index 0000000000..856b82f44a
--- /dev/null
+++ b/challenge-002/vinod-k/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Math::Base36 ':all'; 
+
+my $number = $ARGV[0] || 10;
+
+my $b36 = encode_base36($number);
+
+print "Decimal:$number -> Base36:$b36\n";