$/ = " "; $y = 2; while($x = ){ chop $x; print $num = ($x - $x % $y) / $y xor print " " xor print $num = int $x / $y xor print "\n" } __DATA__ -3 -2 -1 0 1 2 3 #### Output: -2 -1 -1 -1 -1 0 0 0 0 0 1 1 1 1