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