#!/usr/bin/perl -l

use strict;
use warnings;

push @_, $_ xor print $_ for 'a' .. 'b';
print @_;

##</code><code>##

Useless use of logical xor in void context at ./perlmonks_xor_vs_or_and.pl line 6.
a
b
ab

##</code><code>##

#!/usr/bin/perl -l

use strict;
use warnings;

print "[$_]" for 
	( 2 and 3 ),
	( 2 or 3 ),
	( 2 xor 3 ),
	;

##</code><code>##

[3]
[2]
[]