C:\Users\Peter>perl -MPOSIX=log10 -le "$,=', ';print $_, int($_) for log(1e12)/log(10), log10(1e12)"
12, 11
12, 12