in reply to Great Perl Literature

Some Great, some not so great ...
$man =~ tr/man/bug/; $machine = \"ghost"; if (0) { (time() < $^T) && die; } require 6; no strict; print $$^X;

Metamorphosis
Ghost in the machine
Never too young to die
Great Expectations ;)
Crime and punishment