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