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

comments

That is surprisingly readable for Perl code