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
Comment on
Re: Compressing a text file using count of continous characters
Download
Code
In Section
Seekers of Perl Wisdom