perl -wle 'my( $A, $B ); print for map "[$_]", ( $A xor $B ), ( $A and not $B or $B and not $A ); '

##</code><code>##

Use of uninitialized value $_ in concatenation (.) or string at -e line 1.
[]
[]