($n=sprintf "%2.4f",$n)=~s/\.?0+$//;