while(<DATA>)
{
    my @fields = unpack "A7A6A*", $_;


    print join(':', map { sprintf "%.2f", $_ } @fields), "\n";
}

__DATA__
123.45 345.3 234.67
34.56  234.1 123.87
897.34 567.32-100.90