sub remove_sign_on_zero { $_[0]=~/^-([0\.]+)$/ ? " $1" : $_[0] }