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