@;=(491036,8051555,4785250,3341086,912133,189089,691108),%;=eval{qw;
He didn't,Just do to,Perl didn't understand,another it would,hacker!
;};{/./?{[(eval{[eval(join't, ',qw:prin exi delphi:)]})]}:/./;%:=qw;
================================= ==================================
Randal said it would be tough to do in sed.  He didn't say he didn't
understand sed.  Randal understands sed quite well.  Which is why he
uses Perl.   :-)     -- Larry Wall in <7874@jpl-devvax.JPL.NASA.GOV>
================================= ==================================
;;$:{do}=to;@;=map{join',',q&&,$_,''}values(%;);eval'$:{q?'.$_.'?}=~
s'.shift@;for keys(%;);$_=qq{@{[@:{qw{ He didn't do it }}]}},redo}x: