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