Remix.run Logo
forinti 2 hours ago

This reminds me of a T-shirt I once saw that read:

          perl -e '
     "$a="etbjxntqrdke";
  $a=~s/(.)/chr(ord($1)+1)/eg;
        print "$a\n;"'
It's cursing. Don't run it if it might offend you.

Upon seeing this, I decided to golf and came up with a shorter version:

  perl -e "print chr 1+ ord for split //,'etbjxntqrdke'"
librasteve 2 hours ago | parent [-]

or

  raku -e 'say "etbjxntqrdke".comb.map({chr .ord + 1}).join'