# 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/;