$num=sprintf("%7.5f",$num);
$num=~s/^-// if $num == 0 && $num lt 0;