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