#!perl -pl
$_=$"x$y.$_;$y=length