$number =~ s/\.((?:\d*[1-9])?)0*\z/,$1/;