#!/usr/bin/perl -w
use strict;
my$a="z A";
my$A="  1";
my$b=" Q X";
my$B="00 0";
my$z=$a^$A;
my$Z=$b^$B;
print"$Z"^"$z";