Округление полученного числа до n-го знака после запятой.

[Boroda]

Господа програмисты, есть вопрос.
Как в Perle, после деления двух значений друг на друга произвести округление полученного числа до n-го знака после запятой.

 $srednee_arifmet= $razmer_massiva_log_arh/ $razmer_massiva_zero;

Буду благодарен за ответ.

[Chs]

$srednee_arifmet = sprintf("%.02f",$srednee_arifmet);

[Boroda]

Спасибо, работает, очень помогло!

$digits_after_point = 4;
$srednee_arifm =~ s/(\\d+\\.\\d{$digits_after_point}?)//;
print "$1
";
Это намного быстрее.