my $n=34.57889;
$n=~/(-?\d+\.\d{3})/;
print "$n - $1\n";