Select Code to Download

# handle 5 in the thousandth's place with nothing or zeros following
$pete =~ s/(        # substitute, start capture $1
...
          /1&$2 ? $1+.01 : $1/xe;
# then do as you had
$rooker = sprintf "%.2f", $pete;