RLE in Perl5

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

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