>perl -E"say sprintf '%.20g', log (1000) / log (10)" 2.9999999999999996 >perl -E"say int( log (1000) / log (10) )" 2 >perl -E"say log (1000) / log (10) % 3" 2 >perl -E"say 2 % 3" 2