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