set {_Parce} to regex replace first pattern "\b(\d+)\b(?!\.\d)" with "$1.00" in {_Parce}
set {_Parce} to regex replace first pattern "\b(\d+\.\d)\b(?!\d)" with "$10" in {_Parce}
set {_Parce} to regex replace first pattern "(\d+\.\d{2})\d+" with "$1" in {_Parce}

set {_Parce} to regex replace first pattern "\b(\d+)\b(?!\.\d)" with "$1.00" in {_Parce}
set {_Parce} to regex replace first pattern "\b(\d+\.\d)\b(?!\d)" with "$10" in {_Parce}
set {_Parce} to regex replace first pattern "(\d+\.\d{2})\d+" with "$1" in {_Parce}

set {_parce} to "%round({_parce} * 100)%"
set {_parce::*} to split {_parce} at ""
set {_i} to length of {_parce} - 2

set {_parce::%{_i}%} to 0 if {_parce::%{_i}%} isn't set

set {_parce::%{_i}%} to "%{_parce::%{_i}%}%."
set {_parce} to join {_parce::*} with ""

set {_parce} to "%round({_parce} * 100)%"
set {_parce::*} to split {_parce} at ""
set {_i} to length of {_parce} - 2

set {_parce::%{_i}%} to 0 if {_parce::%{_i}%} isn't set

set {_parce::%{_i}%} to "%{_parce::%{_i}%}%."
set {_parce} to join {_parce::*} with ""