perl -ne 'print $_ x ++$i, " " for split //'