http://qs321.pair.com?node_id=657081


in reply to Compressing a text file using count of continous characters

$string =~ s/(.)\1+/length($&).$1/eg;
90% of every Perl application is already written.
dragonchild