Select Code to Download

print "$1\n" if $number =~ m/
                              ^(
...
                                [\d.-]*
                              )$
                            /x;

$number =~ /^([\d.-]*\d[\d.-]*)$/ and print "$1\n";