Select Code to Download

86902
.50
2.
165.0
0.666666666

86902.00
0.50
2.00
165.00
0.66

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