86902
.50
2.
165.0
0.666666666

##</code><code>##

86902.00
0.50
2.00
165.00
0.66

##</code><code>##

# if value is '#' then append ".00"
$curr .= ".00" if $curr =~ m/^\d+$/;
    
# if value is '.#' then prepend "0"
$curr = "0".$curr if $curr =~ m/^\.\d+$/;
    
# if value is '#.' then append "00"
$curr .= "00" if $curr =~ m/^\d+\.$/;
    
# if value is '#.0' then append "0"
$curr .= "0" if $curr =~ /^\d+\.\d$/;
    
# if necessary, truncate to 2 decimal places
$curr =~ s/^(\d+\.\d{2})\d+$/$1/;