in reply to How do I print/round a number to a given number of decimal places?
$number += 0.001 if $number =~ m/\.\d{2}5$/; [download]