gilbert@clicky ~> cat | perl -p -e "s/r/w/g;s/R/W/g;s/(?<![rwRW])o+(?![rwRW])/owo/g;s/ *\$/ :3/" why do I write this why dowo I wwite this :3
That is surprisingly readable for Perl code