From c70540c41e15aadbed7cf3df04a6a982f94059c1 Mon Sep 17 00:00:00 2001
From: Ailbhe Tweedie <atweedie@protonmail.ch>
Date: Tue, 2 Apr 2019 11:20:25 +0200
Subject: 002-p5-01: add initial solution

---
 challenge-002/ailbhe-tweedie/perl5/ch-01.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 challenge-002/ailbhe-tweedie/perl5/ch-01.pl

diff --git a/challenge-002/ailbhe-tweedie/perl5/ch-01.pl b/challenge-002/ailbhe-tweedie/perl5/ch-01.pl
new file mode 100755
index 0000000000..645d671986
--- /dev/null
+++ b/challenge-002/ailbhe-tweedie/perl5/ch-01.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+#
+# Solution to challenge #1 of the Perl Weekly Challenge 002.
+# 
+# TODO: I would like to add some automated testing to this solution.
+
+$number = '001';
+
+$number =~ s/^0+//;
+
+print "$number\n";
-- 
cgit