そういや Perl で one liner って使わなくなったな…
昔はこんなのを↓よくやってたけどね

$ perl -pi.bak -e 's:#!/usr/bin/perl:#!/usr/local/bin/perl:' *.pl

最近使ったのは…Run Length Encoding かな

$ echo '......' | perl -pe 's/(.)(\1+)/$1.(length($2)+1)/ge'

RLEって sed や awk, UNIX tools を組み合わせて one liner でできるのかな…