#!perl -p
$\.="
$_$a$_",$a.=$"for/\B./g