#!perl -pl
$_^=chop^$"while/../