#!perl -p
$_^='
';s/_//g