http://www.perlmonks.org?node_id=90700


in reply to The Perl Film Festival

("Lock", "Stock", ("Smoking Barrel") x 2); foreach $sin ("Pride", "Envy", "Gluttony", "Sloth", "Wrath", "Lust", " +Avarice") { $movie++ } $gate[8]; (("Monkey") x 12); $tide = "FF0000"; return $man{$uncle}; *Trek[2]; $wrath{"Khan"}; *Trek[3]; seek SPOCK,0,0; *Trek[5]; $frontier[-1]; *Wars[4]; new($hope); (("wedding") x 4, "funeral"); !($ing_hill); $fingers_of_dr_t[0..4999]; doctor($strangelove) || $how_I_learned_to_stop_worrying && love(bomb);

That's enough movies - Ed.

-----BEGIN GEEK CODE BLOCK----- Version: 3.1 GAT d++ s:- a-- C++ UL P++ L++(+) E? W+(++) N+ o? K w+(--) !O M- V? PS+ PE- Y PGP- t+ 5 X+ R+++ tv- b+++ DI++++ D+ G+ e++ h!(-) y +? ------END GEEK CODE BLOCK------