# add trailing zeros, as above.
substr ($number, -$places, 0, '.');