Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Kilroy was here

by Putzfrau (Beadle)
on May 07, 2002 at 19:09 UTC ( [id://164793]=poem: print w/replies, xml ) Need Help??

And now for that old classic
print "Domo arigato, Mr. Roboto,"+ "Mata ah-oo hima de" + "Domo arigato, Mr. Roboto"+ "Himitsu wo shiri tai "; y/our $wondering/"who"/; $Iam ? "machine":"mannequin"; $with = $parts{'made_in'}{'Japan'}; $Iam = "the modren man"; $Ive; $got =~ s/ecret/Ive_been/;hiding(under(my $kin)); my $Heart{'human'}; my $Blood{'boiling'};my $Brain{'I.B.M'} = $0; if ($you = "see me") $acting="strangely "; do not_be(suprised); $Iam = "just a"; man(who); needed(someone) && somewhere( 2, "hide"); 2* $keep = $me / $alive; $just = $keep * $me - $alive; somewhere( 2, "hide"); 2* $keep = $me / $alive; $Iam !="robot";!($e=~m/"otions"/); $Iam != "What you see"; $Ive = $come * 2."-h"."you"; $with~= y/our problems/so we can be free/ +; $Iam !="Hero"? "not a Savior":undef($what_you_know); $Iam = "just a man" if ($circumstances > "\c"); $Beyond = my $control; $we{all}="need"."\c"; print " I need $control"; $we{all}="need"."\c"; $Iam = "the modren"; man(who); hiding("behind","a","mask"); print "$0 no !1 can see"; my $true{identity}; for(1..3) { print "Domo arigato, Mr. Roboto, domo...domo"; } $thank_you = "very much $mr_roboto"; for($jobs = $nobody{wants}{2}); $thank_you = "very much $mr_roboto"; for(helping("me")); $escape = $just if(time()= $WHEN_I_NEED_2); $thank_you * 3; $I{want}{2} = $thank_you . "please" . $thank_you; $problem = (((((($technology++)++)++)++)++)++); $machines -> "save"; our $lives"; $machines{"dehumanize"}; if (time()="has come at") last; $throw{mask} = "away"; print "$0 every 1 can see"; my $true{identity}; $Iam = kill roy; kill roy; kill roy;


"Your baudrate depends on the size of your pipe". -ALex Simonelis

Replies are listed 'Best First'.
Re: Kilroy was here
by belg4mit (Prior) on May 07, 2002 at 21:43 UTC
    ++, too bad it doesn't compile though :-/ (I seem to be the only one that holds this attribute of perl poetry in high esteem, oh well).

    --
    perl -pew "s/\b;([mnst])/'$1/g"

Re: Kilroy was here
by MrCromeDome (Deacon) on May 07, 2002 at 21:32 UTC
    I don't know whether I should laugh or cry ;) So funny that the Surgeon General should make you put a warning label on it ;) Almost fell out of my chair laughing ;)

    Thanks for some memories :)
    MrCromeDome

Re: Kilroy was here
by Putzfrau (Beadle) on May 08, 2002 at 18:59 UTC

    For my next number i plan on re-writting "Homer's The Illiad" in Perl, should take me about a weekend or 98

    "Your baudrate depends on the size of your pipe". -ALex Simonelis

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2024-04-23 09:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found