Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Steal it

by SubStack (Monk)
on Jun 02, 2007 at 07:21 UTC ( [id://618881]=poem: print w/replies, xml ) Need Help??

This is a poem I had lying around reformatted with some nasty one-liners and ascii art tossed in. Best viewed at 80 cols. Freedom isn't free, so steal it!
#!/usr/bin/env perl print join " ", (qw{ want you my far if key see steal better eventually Music, copy-left them detected freed +om there's math, dissect sleeping +theft and of is all will There's have cracks + when Let it censors can voice man I'll were + devil way a I'd forgiveness, t +hreatened Or in walls past fold stand permission me Fair Di +sassemble by hold feel mind worse creativity they That Free bo +nds constrict deal science free time-shift verse choice bold, make expresses under tax there redirected as keeping thing so-called discourse impulsi +ve From sectioned, held shoulders others not + that take repeal on who Freedom defy out, You'll one wi +th behind you've errors So goes remix do we giants soluti +on to But If demanding slumbers Is curtains leak isn't w +ake Never then more the don't taxing slip need sell could + violent so free, As for near be their I shape Personal +ity world are never terribly uncorrected use been poetr +y silent holders A 17-year And information than co +ntainer Patent-free until just seek}, "\n +")[ -1,112, 138,36, 154,-1 +, 40,0,110, 136,66,-1, 40,0,14, +134 ,87,-1,153, 14,134,50,-1 ,-1,61,77 +,44, 14,-1,61,77, 44,68,-1,61,110 ,71,123,14 +1,8, -1,43,110,71,123 ,141,57,-1,-1,29, 75,136,81,- +1,29, 123,141,6,-1,29,75 ,136,65,-1,10,16,20 ,148,-1,-1,1 +33,138 ,126,46,123,31,-1,133 ,123,45,26,27,-1,133, 78,50,73,5,-1 +,115,39 ,144,125,74,-1,-1,151, 74,92,14,-1,151,74,92, 33,-1,151,58,7 +4,-1,153 ,39,74,92,69,-1,-1,111,15 ,122,155,98,109,-1,25,122 ,155,98,79,110, +136,-1,25, 122,155,98,38 ,110,106,30,-1,52,30,20,6,-1 ,-1,60,101,147,84,76,-1 +,103,89,28 ,102,142,13, -1,97,127,49,110,17,12,-1 ,103,30,23,104,145, + -1,-1,120 ,143,56,123 ,34,100,123,116,-1,120, 55,42,53,123,130, + -1,120, 71,39,64, 99,123,37,-1,112,1, 143,128,96,121 + ,35, 143,136 ,149,-1,-1,111,35 ,119,18,108, + -1, 112, 138,48,92,137, 86,-1,83, + 137 , 152,114,-1, 103,35, + 95 ,123,80,150, -1,-1,133, 4,138,129, 136,8 +5,-1, 133, 4, 150, 129 ,54 ,50 ,-1 + ,133 ,138 ,90, 123, 139 ,21 ,2, 156, + -1, 138, 24, 9, 117 ,66 ,-1 ,-1 + ,83 ,123 ,62 ,89, 63, 50, -1, 83, + 123 ,135 ,110 ,123 ,3, -1, 140 ,22 + ,159 ,123 ,154 ,-1, 60, 72, 93, 107 + ,142 ,-1, -1, 103, 136 ,82 ,20, 113, + -1, 51, 146 ,118 ,19 ,-1 ,138 ,32, + 67, 30, 20,105,30,-1,157, 20,11,-1,-1,153, 136,70,124,47, + -1,153 , 158,59,91,30,-1 ,35,160,41,88, 49,-1,94,118 + ,132 ,131,7,30,-1,-1]

Replies are listed 'Best First'.
Re: Steal it
by liverpole (Monsignor) on Jun 02, 2007 at 13:09 UTC
    Very nice!  ++SubStack.

    Particularly intriguing is the way you've combined Perl poetry with obfuscation; a rare feat.

    High marks for the combined genres, visually pleasing presentation (is that the stripe from Charlie Brown's shirt?), and apropos underlying message.


    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
Re: Steal it
by bones (Acolyte) on Jun 07, 2007 at 20:39 UTC
    very beatiful, but legible

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://618881]
Approved by varian
Front-paged by liverpole
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2024-07-18 22:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.