http://www.perlmonks.org?node_id=164793

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