One way is to just drop the trailing digits:
my $x = $yearlyamount / 52; $x =~ s/(\.\d\d)\d*$/$1/; [download]
In reply to Re: Rounding of a number... by steves in thread Rounding of a number... by mkenney