tokuhirom's blog

RLE in Perl5

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

Created: 2013-06-24 00:51:03 UTC
Updated: 2013-06-24 00:51:03 UTC