#!perl -pl
$\.=$"x y///c