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 |
In Section
Seekers of Perl Wisdom