$price_string .= '0';
$price_string =~ s,^(\d+)\.(\d{2})0*,${1}${2},;