One way is to just drop the trailing digits:

my $x = $yearlyamount / 52;
$x =~ s/(\.\d\d)\d*$/$1/;
[download]