diff options
| -rw-r--r-- | challenge-002/fred-zinn/perl5/ch-1.pl | 7 |
1 files changed, 7 insertions, 0 deletions
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"; +} + + |