Select Code to Download

sub remove_sign_on_zero {
    my $num_str = shift;
...
}

my $num = remove_sign_on_zero( sprintf('%7.5f', $example) );

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