@; = (491036,8051555,4785250,3341086,912133,189089,691108);

##</code><code>##

%; = qw/
       He
       didn't,Just
       do
       to,Perl
       didn't
       understand,another
       it
       would,hacker!
       /;

##</code><code>##

  He => didn't,Just
  do => do,perl
  didn't => understand,another
  it => would, hacker!

##</code><code>##

%: = 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>
================================= ==================================
    /;

##</code><code>##

{ # required by redo, where to start for the redo
    /./ ? eval(join 't, ', qw:prin exi delphi:) : /./;

##</code><code>##

    /./ ? { print, exit, delphit, } : /./;

##</code><code>##

    /./ ? { print, exit, } : /./;

##</code><code>##

    $:{do} = 'to';

##</code><code>##

    @; = map { join ',', '', $_, '' } values(%;);

##</code><code>##

    He => didn't
    didn't => understand
    do => to  # manually inserted before
    it => would

##</code><code>##

    eval '$:{q?'.$_.'?}=~s'.shift@; for keys(%;); 

##</code><code>##

   He => Just
   didn't => another
   do => Perl
   it => Hacker!

##</code><code>##

    $_ = qq{@{[@:{qw{ He didn't do it }}]}};

##</code><code>##

    redo } x: