my $w = '0001' ; my $x = 'zlqq' ; my $y = '-zlxq' ; my $z = '+zlxq' ;

  print " \$w=$w,  \$x=$x,   \$y=$y,  \$z=$z\n" ;
  print "+\$w=", +$w, ", +\$x=", +$x, ",  +\$y=", +$y, ", +\$z=", +$z,"\n" ;
  print "-\$w=", -$w, ",   -\$x=", -$x, ", -\$y=", -$y, ", -\$z=", -$z, "\n" ;