1: #!/usr/bin/perl -w
   2: # prints stuff upside down.
   3: # (c) Weyfour WWWWolf 2000-05-18
   4: # Inspired by WolfZone's similiar program =)
   5: 
   6: use strict;
   7: 
   8: while(<>) {
   9:   chomp;
  10: 
  11:   # Punctuation
  12:   #            !""()'',.
  13:   tr/!""()'',./i``)(,,'`'/;
  14: 
  15:   # Numbers (Probably the easiest part)
  16:   #             0123456789
  17:   tr/0123456789/0l5Eh29L86/;
  18: 
  19:   # Characters
  20:   #         abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
  21:   tr/a-zA-Z/eqopaJ@y!f>jwuodbJs+n^mxhzV8D43J9HIf>IWNOJOJSLAAMXhZ/;
  22: 
  23:   print "", (reverse split //), "\n";
  24: }