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

$I=%wonder=("What"=> "is", "it"=> "all?"); $I.'thought I had it'."I really did"; 'Turns out I';sub Knew{ "Sub Knew, hah, is that even a term?, I'm coining it"; for ($constantly = (each %wonder)){'is greater than the last'; $shifting == $constantly; $always=($shifting == $shifting); $constantly;} "It's";$Never = ($always==True); 'Yet'; $Never=False; #It can't be, things go... "to"; return $Never; 'just how it is';} #Why!? if ($I==Knew("I'd tell you")) { while ($I='Could'){'...Would you listen?';} }