#Perl @PerlWChallenge 296 Task 1: String Compression
#noxp
```
perl -E '
for(@ARGV){$x=$_; $x=~s/(.)(\1+)/$1.(1+length $2)/ge; say "$_ -> $x"}
' abbc aaabccc abcc
```