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

Or you could use the following to truncate whatever comes after the third digit after the decimal point:

if ($val =~ m/([-]?[\d]*\.[\d]{3})/) {
    $val = $1;  
}