This is my very first JAPH/obfuscation, so be gentle. The code is pretty uncomplicated, but it looks pretty hard to read from where I'm standing. I only wrote this after using pack and thought this might be cool to write...the acutal poem was fairly slapdash. Anyway, vote as you feel necessary.

#!/usr/bin/perl
use strict;

while(<DATA>){my$l;undef$l;
my@e = split(/\\/);for (@e)
{next()unless($_);$l.=     
chr$_}my$f=unpack("a", $l);
print$f;                }
    
__DATA__
\74\117\105\99\101\115\32\102\108\111\119\32\116\104\114\111\117\103\1
+04\32\116\104\101\32\115\116\114\101\97\109\10\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\117\110\97\98\108\101\32\116\111\32\99\111\110\116\114\111\108\32\116
+\104\101\105\114\32\115\116\97\116\101\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\115\97\118\97\103\101\115\32\114\105\100\101\32\116\104\101\32\119\10
+4\105\116\101\32\115\119\97\110\115\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\116\111\32\116\104\101\32\108\97\107\101\32\119\104\101\114\101\32\10
+1\118\105\108\32\98\114\111\111\100\115\10\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\32\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\65\116\32\108\97\115\116\32\105\116\32\115\112\114\101\97\100\115\32\
+105\116\115\32\119\105\110\103\115\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\110\111\116\32\112\114\101\112\97\114\101\100\32\116\111\32\97\99\107
+\110\111\119\108\101\100\103\101\32\116\104\101\10\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\111\120\121\103\101\110\32\115\116\114\101\97\109\105\110\103\32\116\
+104\114\111\117\103\104\32\105\116\115\32\98\108\111\111\100\10\\\\\\
+\\\\\\\\\\\\\
\116\104\101\32\104\117\109\97\110\105\116\121\32\98\101\105\110\103\3
+2\115\117\99\107\101\100\32\97\119\97\121\10\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\104\111\108\100\105\110\103\32\111\110\116\111\32\116\104\101\32\108\
+97\115\116\32\115\99\114\97\112\10\\\\\\\\\\\\\\\\\\\   \\\\\\\\\\\\\
+\\\\\\\\\\\\\
\101\118\101\110\116\117\97\108\108\121\32\102\97\100\105\110\103\32\9
+7\119\97\121\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\\\\\\\\\
+\\\\\\\\\\\\\
\114\97\116\104\101\114\32\108\105\107\101\32\116\104\101\32\109\111\1
+17\110\116\97\105\110\32\102\111\103\10\\\\\\\\\\\\\\\\   \\\\\\\\\\\
+\\\\\\\\\\\\\
\32\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\\\\\\\
+\\\\\\\\\\\\\
\80\101\114\104\97\112\115\32\105\116\32\119\105\108\108\32\110\111\11
+6\32\104\97\114\109\32\116\104\101\109\10\\\\\\\\\\\\\\\\   \\\\\\\\\
+\\\\\\\\\\\\\
\101\118\101\110\32\116\104\111\117\103\104\32\105\116\115\32\99\108\9
+7\119\115\32\97\114\101\32\97\114\109\101\100\10\\\\\\\\\\   \\\\\\\\
+\\\\\\\\\\\\\
\114\97\107\105\110\103\32\105\116\115\32\115\107\105\110\10\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\\\\
+\\\\\\\\\\\\\
\108\105\107\101\32\97\32\107\110\105\102\101\32\116\104\114\111\117\1
+03\104\32\98\117\116\116\101\114\10\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\\\
+\\\\\\\\\\\\\
\32\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\\
+\\\\\\\\\\\\\
\72\101\114\101\44\32\115\101\101\32\105\116\32\112\97\115\115\32\111\
+118\101\114\32\116\104\101\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\   \\\\
+\\\\\\\\\\\\\
\97\102\116\101\114\116\105\109\101\32\98\97\114\101\108\121\32\110\11
+1\116\105\99\105\110\103\10\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\99\114\97\99\107\105\110\103\32\114\101\97\99\116\105\111\110\115\10\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\107\105\99\107\105\110\103\32\117\112\32\100\117\115\116\10\\\\\\\\\\
+\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+\\\\\\\\\\\\\
\101\118\101\114\121\119\104\101\114\101\32\98\117\116\32\111\110\108\
+121\32\118\105\115\105\98\108\101\32\116\104\114\111\117\103\104\32\1
+16\104\101\10
\114\97\100\111\110
[download]

--
my @words = grep({ref} @clever);
sub version { print "I cuss your capitalist pig tendencies bad!\n" }