RLE in Perl5

s/(.)(\1+)/$1.(length($2)+1)/ge

Published: 2013-06-24(Mon) 00:51