'' =~ (
	 '(?{'
	. ( '+]).][' ^ '[/@@){' )
	. '"'
	. ( '^@@;.|' ^ '?,,^@^' )
	. ',$/})'
      )

##</code><code>##

my @s = (
    '+', ']', ')', '.', ']', '[',
    '[', '/', '@', '@', ')', '{',
);

for (my $i = 0; $i < 6; $i++)
{
    my ($l, $r) = ($s[$i], $s[$i+6]);
    printf "%s %x ^ %s %x = %s %x\n",
        $l, ord $l,
        $r, ord $r,
        $l ^ $r, ord $l ^ ord $r;
}