challenge-002 andrezgz fix ch-1

1 files changed, 4 insertions, 1 deletions

diff --git a/challenge-002/andrezgz/perl5/ch-1.pl b/challenge-002/andrezgz/perl5/ch-1.pl
index 36addeca96..52f8af5a65 100644
--- a/challenge-002/andrezgz/perl5/ch-1.pl
+++ b/challenge-002/andrezgz/perl5/ch-1.pl
@@ -32,10 +32,13 @@
 # 01.    -> 1.
 # 01.0   -> 1.0
 # 010.0  -> 10.0
+# 00.1   -> 0.1
+
+# + All the above with a comma instead of a dot
 
 use strict;
 
 my $number = @ARGV[0];
 
-$number =~ s/^0+([1-9][0-9]*(:?[.,]\d*)?)$/$1/;
+$number =~ s/^0+([1-9]*[0-9]+(:?[.,]\d*)?)$/$1/;
 print $number;