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