Save this to a file named "act 5, scene 3," and run. If you count, Romeo dies in the 15th line of this scene.

O("Juliet!");

to('love');!

drinks;

O, apothecary => true;

for (drugs => quick) {
  kiss("I..") and die;
}

sub AUTOLOAD {unshift @last,@_;0}

print "@last" and die;
__END__
[download]

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'