Handy map to the rescue ...albeit somewhat late:

$,='  ';
my @nums = qw ( 1 -4 3 0 -2 0 -14 );
print map {sprintf '%+d', $_ if $_} @nums
[download]