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