#! perl
use strict;
use warnings;

while (<DATA>)
{
    chomp;
    print "$_ is a match\n" if /-\d+\d+\d+\d+\d+\d+\d+\d+\d+\d+\d+.*\..*/;
}

__DATA__
-523566.00
-0.0013
0.0045
-32742987982758110638106318307132432131.0000