-523566.00
-0.0013
0.0045

##</code><code>##

-32742987982758110638106318307132432131.0000

##</code><code>##

my $match =~ m/-\d+\d+\d+\d+\d+\d+\d+\d+\d+\d+\d+.*\..*/;