in reply to Obfu/golf Contest

This is a pretty simple obfu.
The under-lying code is 171 characters.

Update: Warning! Huge line follows in readmore:

#!/usr/bin/perl
eval join '',map{chr}unpack"A3"x171,q/11511709803209512311211410511011
+603203609509104809304603604712505903610906103910911111010710112103905
+903611506103911611410511010303905905909503408010810109711510103210111
+011610111403211610410103211503611503211611103209810103211510109711409
+910410110003210211111403211610410103211503611503203903610903905803405
+903609506106006203312604703610904706303903211011111603905803903905909
+503408303611503203903610903903211909711503404603609504603403210211111
+7110100032105110032116104101032105110112117116032115036115046034059/;

[download]

This is based on other posts in this thread, with an added 

sub _{print $_[0].$/};

[download]
to compress print to _, and save on "\n"'s.

Change eval to print for the real source.

Cheers.

BazB.

If the information in this post is inaccurate, or just plain wrong, don't just downvote - please post explaining what's wrong.
That way everyone learns.

In Section Meditations