$x =~ s/^(.*[.].*[^0]|.*[.])0*$/$1/; $x =~ s/\.$//;