#!perl -p
$_^='
';y/_//d