in reply to printing floats nicely

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

[download]

In Section Seekers of Perl Wisdom