Archive for May 24th, 2008

Perl Joke

Just a joke - no offense intended…


perl -e '$a="etbjxntqrdke";$a=~s/(.)/chr(ord($1)+1)/eg;print $a'