# famous much?
$fellowship{ring};
($tower) x 2;
$val = system 'king';  # petdance has nothing on me ;)


# I'm thinking of OSC books here
END { game() }
$SIG{CHLD} = \&talk;


# some short stories, all by the same author
HEIM: { ... };  # perhaps this is a strech...
pop @body;
my Bottle $imp;


# and some other books...
@days = map permute("world"), 1 .. 80;

$phasers = 'stun';

int main () { $foo = 10; }  # one of my favorites...

*me = *robot;

("perl.c", "perl.h");  # another tricky one
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

sub native { return; }

/Canterbury(.*)/g;  # yea, this is bad...

&date( "2001 Jul 21 18:00:00" )->{ dream };

unlink( "~usher/house" );  # This is even worse...

print "<FONT COLOR=\"red\">A</FONT>\n";

$moheicans[-1];

$list[-1]->{game};
[download]

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
It's not what you know, but knowing how to find it if you don't know that's important

A little bit nitpicking:
Isn't midsummer day on June the 21st?

I've always been under the impression that June 21 (while being the Summer Solsist) was concerned as the first day of summer by most calenders. July is definely in the 'middle' of summer so it was a better choice here.

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important

# this one's a bit contrived...
for($recent..$later) {
   $live .= $interesting * $_;
}

do {
   $dreams =~ s/Terror(?:Death)//
} while $dreams;

# as is this one...
$alien = `touch`;

for (0..5) {
  push@time,scalar(localtime);
  sleep 1;
}
print $_,$/ for @time;

sub human {
  -t $man;
}

while (!$home) {
  if (fork) {
    $home++;
  } else {
    $home--;
  }
}
[download]

jynx

Update: Restructured some of the code to something remotely worthwhile...

Not all great literature, just a few fun ones that popped into my head while scanning my shelves:

# fiction:

    eval {die "22\n"};
    $@ == 22? print "Gotcha":die $@;

    #!/usr/bin/perl
    # ... rest of code

    @years = (undef) x 100;

    use Acme::Bleach;
    
    use Tie::Cycle;
    tie my $foucault, 'Tie::Cycle', [-1,1];

# non-fiction:

    use Devel::Peek;
    # ...
    print Dump($gray);

    $cosmic->();

    use Carp;
    sub species {confess()}

    $delta = (localtime)[2]-(gmtime)[2];
    print abs($delta * 15), $delta>0?'E':'W';

    $prehistory =~ /$patterns/
[download]

spoilers:

# fiction:

  Catch 22 (Joseph Heller)

  The Unconsoled  (Kazuo Ishiguro) 
      [no '-w' no 'use strict' == no sympathy]

  One hundred years of solitude (Gabrial Garcia Marquez)

  Out of Sight (Elmore Leonard)  

  Foucault's Pendulum (Umberto Ecco);

# non-fiction:

  Gray's Anatomy  (Henry Gray)

  The Cosmic Code (Heinz Pagels)

  Origin of Species (Charles Darwin)

  Longitude (Dava Sobel) 
      [it's the general idea, not the accuracy that matters]

  Patterns in Prehistory (Robert Wenke)
[download]

:-)

Tales of Arabian Nights

Let's see what books come to mind... The other day, looking for something to take my mind off current events, I read the $Potter[0] book. It wasn't too bad, and now I'm looking forward to the movie. I may pick up $Potter[1] next, or else try out Daniel Pinkwater's @novels[0..4] .

Last year, I re-read

scalar(grep {$_->isa('Sheep::Electric')} Android::dream);
[download]

I've never read

  no strict 'subs';
  lunch;
[download]

Somewhere I've got a copy of

    use Storable;
    my @men = 
      map { $_->[0] }
      sort { $b->[1] <=> $a->[1] }
      grep { $_->[1] > (55*365) }
      map { [$_, -C] }
      glob("*.man");
    die "Error: Nemo senex est" unless @men;
    my $guy = retrieve($men[0]);
    use Inline C => <<'END_C';
    int fish() {
      return 1;
    }
    END_C
    $guy && fish;
[download]

    $gerund = $lot[50-2]->can("cry");
[download]

(The first Array Potter book, that is, plus "5 Novels", "Do Androids Dream of Electric Sheep?", "The Naked Lunch", "The Soft Machine", "The Western Lands", "The Old[est] Man and the [Inlined] Sea", and "The Crying of Lot 49". And yeah, I am kind of grep-happy; it's just a phase.)
(And I removed Catch-22; I should've read the other posts more carefully...)

Update: 'Damn'x3; --$self for botching an array slice.

-- Frag.

$man =~ tr/man/bug/;

$machine = \"ghost";

if (0) {
    (time() < $^T) && die;
}

require 6;

no strict;
print $$^X;
[download]

# figure this one out
sqrt(3936256);

length("so") && carp("thank you");

$house = "#000000";

# /me gets shot
do("ne");
[download]

______________________________________________
RIP
Douglas Noel Adams
1952 - 2001

What fun! Thankyou Andy, you've just improved a shite day significantly. Thanks also to Selected Best Nodes for giving me a great vintage node. (This is missingthepoint wasting time instead of working... caffeine deprivation)

My answers, before looking or reading the rest of the thread...