-l print,s!(.)\1*!$&%9/$1.$1!egfor(++$_)x10
1234567890123456789012345678901234567890123

##</code><code>##

-l print,s!(.)\1*!$&%9/$1.$1!egfor(p^A)x10
123456789012345678901234567890123456789012