Select Code to Download

for $format (qw{ %.6g  %6.6g %6g %.6f %6.6f %6f}){
...
                print length($str)." - '$str'\n";
        }
}

%.6g
...
10 - '123.456780'
13 - '123456.000000'
12 - '12345.678901'