* Woo hoo! JWZ has placed newspeak under a BSD-ish license, so it moves

[filters.git] / studly

diff --git a/studly b/studly
new file mode 100755 (executable)
index 0000000..8e69d9b
--- /dev/null
+++ b/studly
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+# stUdLy cAPs, after emacs studly.el -- the commented line is just
+# to remind diehards how it *should* be done ;)
+#
+# just for reference, you may do whatever you like with this file.
+#
+# -- nwp@lemon-computing.com
+
+for (my $offset = 0; defined(my $c = getc); $offset++) {
+#    (($c + $offset) % 4) == 2 and print (ord($c) ^ 32) or print($c);
+    (($c + $offset) % 4) != 2 and print($c) or $c =~ tr/[A-Za-z]/[a-zA-Z]/, print $c;
+}
+