@; = (491036,8051555,4785250,3341086,912133,189089,691108);
####
%; = qw/
He
didn't,Just
do
to,Perl
didn't
understand,another
it
would,hacker!
/;
##
##
He => didn't,Just
do => do,perl
didn't => understand,another
it => would, hacker!
##
##
%: = 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>
================================= ==================================
/;
##
##
{ # required by redo, where to start for the redo
/./ ? eval(join 't, ', qw:prin exi delphi:) : /./;
##
##
/./ ? { print, exit, delphit, } : /./;
##
##
/./ ? { print, exit, } : /./;
##
##
$:{do} = 'to';
##
##
@; = map { join ',', '', $_, '' } values(%;);
##
##
He => didn't
didn't => understand
do => to # manually inserted before
it => would
##
##
eval '$:{q?'.$_.'?}=~s'.shift@; for keys(%;);
##
##
He => Just
didn't => another
do => Perl
it => Hacker!
##
##
$_ = qq{@{[@:{qw{ He didn't do it }}]}};
##
##
redo } x: