I've never really tried writing obfuscated code before. This is my first shot that I hacked together just after joining PM.
#!/usr/bin/perl my @chars; open PERL,"| perl"; while(<DATA>) { @nums = split ':'; push @chars,pack('C*',@nums); } print PERL @chars; __DATA__ 35:33:32:47:117:115:114:47:98:105:110:47:112:101:114:108:10:117:115:10 +1:32:66:121:116:101:76:111:97:100:101:114:32:48:46:48:54:59:10:80:76: +66:67:105:52:56:54:45:108:105:110:117:120:45:103:110:117:45:116:104:1 +14:101:97:100:45:109:117:108:116:105:0:48:46:48:54:0:4:0:0:0:4:0:0:0: +12:32:89:97:1:0:0:0:100:13:101:64:12:160:104:94:1:0:0:0:100:5:12:156: +2:94:2:0:0:0:97:1:0:0:0:100:2:12:152:1:94:3:0:0:0:100:2:12:56:87:94:4 +:0:0:0:100:1:14:5:0:0:0:109:97:105:110:0:5:6:0:0:0:124:6:0:0:0:14:8:0 +:0:0:106:97:112:104:46:112:108:0:5:7:0:0:0:125:7:0:0:0:128:118:3:0:0: +130:1:0:0:0:12:152:88:94:5:0:0:0:133:8:0:0:0:134:1:0:0:0:9:12:0:0:0:9 +:10:0:0:0:9:10:0:0:0:65:1:9:10:0:0:0:7:1:9:4:3:132:4:14:25:0:0:0:74:1 +17:115:116:32:97:110:111:116:104:101:114:32:80:101:114:108:32:72:97:9 +9:107:101:114:0:22:1:12:0:0:0:60:3:0:0:0:61:13:0:0:0:61:14:0:0:0:65:1 +:1:10:0:0:0:60:3:0:0:0:61:11:0:0:0:61:12:0:0:0:65:0:1:9:0:0:0:56:10:0 +:0:0:59:16:0:135:9:0:0:0:136:12:0:0:0:0:

Replies are listed 'Best First'.
Re: First shot at a JAPH
by ysth (Canon) on Jan 28, 2007 at 20:35 UTC
    Requires a i486-linux-gnu-thread-multi perl5.8.8, so I wasn't actually able to run it, but I like the concept. (Hope it isn't an rm -rf /.)

    Be nice if the __DATA__ were broken into shorter lines, though.