This is my first try after reading up on Bitwise String Operators (and my first Japh.) It's not very long, but here it is. #!/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";
Please send me comments on how to improve this. My next try would include using '&' instead of '^'.The one thing that I did try was swaping variables in '$z' and '$Z' and in the print. It doesn't matter how you '^' them as long as you use all of the variables '$a', '$A', '$b', and '$B'. That suprised me until I thought about it some more.
- Mission
"Heck I don't know how to do it either, but do you think that's going to stop me?!!"