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