tokuhirom's Blog
Search
RLE in Perl5
s/(.)(\1+)/$1.(length($2)+1)/ge