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