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: }