perl -0777pe"$_^=<>"