Another grook (sorry, I can't restrain myself...)
quite relevant I think, though it's not obfuscated itself...
$you_know_what_I_mean = <<GROOK; IF YOU KNOW WHAT I MEAN (by Piet Hein, from Grooks, 1966) (translated into Perl by Osfameron - hakim\@earthling.net) A poet should be of the old-fashioned meaningless brand; obscure, esoteric, symbolic, - the critics demand it; so if there's a poem of mine that you do understand I'll gladly explain what it means till you don't understand it. GROOK $obfuscator = $poet{"old-fashioned meaningless brand"} = { obscure => 1, esoteric=> 1, symbolic=> 1 }; push my @poems, { poem => __FILE__, understood => 0, }; if (critics_accept($obfuscator)) { for $poem (@poems) { while (understand($poem)) { explain ($poem, 'gladly') } $you_actually_know_what_I_mean++ if understand($poem); } print $you_know_what_I_mean unless $you_actually_know_what_I_mean; } sub critics_accept { $poet = shift; ( $poet->{obscure} and $poet->{esoteric} and $poet->{symbolic}) } sub understand { (shift)->{understood} } sub explain { (shift)->{understood}-- }
Cheerio!
Osfameron