Select Code to Download

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

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