[OT] perl help on number modification

[Bruno Wolff III]

On Thu, Jan 14, 2010 at 10:24:35 +0000,
  Dave Cross <davorg at gmail.com> wrote:
>   s/\.?0+$//;

While it wasn't covered explicitly in the examples I suspect that a lone
trailing decimal point should also be stripped so that the pattern should be:
s/\.?0*$//;