tokuhirom's Blog

RLE in Perl5

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