in reply to Eliminating Trailing Zeros

$n =~ s/\.?0*$//;
Enjoy.

In Section Seekers of Perl Wisdom