($n=sprintf "%2.4f",$n)=~s/\.?0+$//; [download]
In reply to Re: Eliminating Trailing Zeros by demerphq in thread Eliminating Trailing Zeros by Anonymous Monk