Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Kilroy was here

by Putzfrau (Beadle)
on May 07, 2002 at 19:09 UTC ( #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 :)

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?

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2022-01-18 19:35 GMT
Find Nodes?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:

    Results (54 votes). Check out past polls.