$price = reverse $price;
$price =~ s%(\d{3})%$1\.%g;
$price = reverse $price;
if(substr($price,0,1) eq ".") { $price = substr($price,1); }