perl -le '@B=qw(-0 4);$g=($B[0] lt 0?-1:1); 
            printf"%s\n" x 3,$B[0],$g,$B[1]*$g'
-0
-1
-4

perl -le '@B=(-0,4);$g=($B[0] < 0?-1:1); 
          printf"%s\n" x 3,$B[0],$g,$B[1]*$g'
0
1
4