From 2fb6c2e357732c020209ea130df2b96290a36844 Mon Sep 17 00:00:00 2001
From: Ailbhe Tweedie <atweedie@protonmail.ch>
Date: Tue, 2 Apr 2019 11:29:31 +0200
Subject: 002-p5-01: read from STDIN

---
 challenge-002/ailbhe-tweedie/perl5/ch-01.pl | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/challenge-002/ailbhe-tweedie/perl5/ch-01.pl b/challenge-002/ailbhe-tweedie/perl5/ch-01.pl
index 645d671986..e4a72a65e9 100755
--- a/challenge-002/ailbhe-tweedie/perl5/ch-01.pl
+++ b/challenge-002/ailbhe-tweedie/perl5/ch-01.pl
@@ -1,11 +1,9 @@
 #!/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";
+while (<>) {
+	chomp;
+	$_ =~ s/^0+//;
+	print "$_\n";
+}
-- 
cgit