How do I set the floating point precision in Perl?

Question

Is there a way to set a Perl script\'s floating point precision (to 3 digits), without having to change it specifically for every variable?

Something similar to TCL\

Answer 1

Treat the result as a string and use substr. Like this:

$result = substr($result,0,3);

If you want to do rounding, do it as string too. Just get the next character and decide.