my $num = 12.3456789;
$num = substr($num, 0, index($num, '.') + 3);

print $num;  #prints 12.34