#!/usr/bin/perl -l

use strict;
use warnings;

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