Hell, why stop there?

sub round_to_nths {
    my ($num, $n) = @_;
    (int $num*$n)/$n
}
[download]

Now you and me can reuse our rounding code all day, giggling as the split-based solution chokes on a well-placed $num = '123E-1'...