Select Code to Download

sub trunc {
    my ($float, $precision) = @_[0..1];
...
}

printf ("%5.2f", trunc($yearlyamount/52,2));

$weekly = int(($yearlyamount/52)*100);
$weekly = s,\d{2}$,\.$&,;
printf ("%5.2f", $weekly);

$weekly = sprintf("%.3", $yearlyamount/52);
chop($weekly);
printf "%5.2", $weekly;