#!perl -pl $_=substr/c/?meow:woof,0,/c/?$c:$d+=1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page