From 2298f27384b3093cee40eb6ec4846df47a7e5385 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Wed, 3 Apr 2019 19:55:34 +0100
Subject: - Added solution by "Fred Zinn".

---
 challenge-002/fred-zinn/perl5/ch-1.pl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 challenge-002/fred-zinn/perl5/ch-1.pl

diff --git a/challenge-002/fred-zinn/perl5/ch-1.pl b/challenge-002/fred-zinn/perl5/ch-1.pl
new file mode 100644
index 0000000000..e9327bac42
--- /dev/null
+++ b/challenge-002/fred-zinn/perl5/ch-1.pl
@@ -0,0 +1,7 @@
+@a1= ( "00123", "-00123", "123" );
+foreach $nr (@a1)  {
+    if (substr($nr,0,1) == '0')  { $nr  =~ s/^0*//; }
+    print "($nr)\n";
+}
+
+
-- 
cgit