#!perl -pl $_=$a^=$_