studly

   1 #!/usr/bin/perl
   2
   3 # stUdLy cAPs, after emacs studly.el -- the commented line is just
   4 # to remind diehards how it *should* be done ;)
   5 #
   6 # just for reference, you may do whatever you like with this file.
   7 #
   8 # -- nwp@lemon-computing.com
   9
  10 for (my $offset = 0; defined(my $c = getc); $offset++) {
  11 #    (($c + $offset) % 4) == 2 and print (ord($c) ^ 32) or print($c);
  12     (($c + $offset) % 4) != 2 and print($c) or $c =~ tr/[A-Za-z]/[a-zA-Z]/, print $c;
  13 }