pop @mohicans;

$flew[rand @flew] / $nest{cuckoo};

sub mummy { return }

scalar @monte_cristo;

my $la;

my $parts;

$engagement = Parse::RecDescent->new(...);

sub tomorrow { return; die; }

sub never { print +(caller(0))[3]; *never = sub {} }

$sense[5];

@couples = map [ pop @brides, pop @brothers ], 1..7;

$day - int($day);

$days - int($days);

pop @destination;

study $summers[-1]{activities}{you};

$is_postman and ring(), ring();

for (@people) { fork and sleep 5 } # <-- HERE

import random; def add (x, y): return random.random();

sleep 60; exit;

$#commandments = 9;

umask;

$gun[0];

gun;

close LAMBS;

use vars '@enemy'; $enemy[0];

@clues = ();

$Love::shakespeare;

sub { \my $ryan }
[download]

Some of those are completely brilliant, but I really think that

pop @mohicans;
[download]

is more accurately

$mohicans[-1];
[download]

Also, I think that the data structure for

@couples = map [ pop @brides, pop @brothers ], 1..7;
[download]

should really be

%couples = map { (pop @brothers, pop @brides) }, 1..7;
[download]

Note the hash as having a "has-a" relationship, right?

xoxo,
Andy
--
I was dreaming when I wrote this, so sue me if I go too fast.

Technically, if all the mohicans died, it'd be $mohicans[0] as well, no? ;)

japhy -- Perl and Regex Hacker

Or to get the overall effect.

$last = map { pop @mohicans } @mohicans;
[download]

Thus leaving no mohicans other than the one you have in $last.

Here are the titles, if you were curious...

Last of the Mohicans One Flew Over the Cuckoo's Nest The Mummy Returns The Count of Monte Cristo LA Confidential Private Parts Rules of Engagement Tomorrow Never Dies Never Say Never Again The Sixth Sense Seven Brides for Seven Brothers Remains of the Day End of Days Final Destination I Know What You Did Last Summer The Postman Always Rings Twice Awakenings And Now For Something Completely Different Gone in 60 Seconds The 10 Commandments The Mask Top Gun The Naked Gun Silence of the Lambs Public Enemy #1 Clueless Shakespeare in Love Saving Private Ryan [download]



japhy -- Perl and Regex Hacker

This is just too easy...

{my $America;}||if ($you_love_Bhudda) {&honk}

my $Best_Friends_Wedding;

my @Bloody_Valentine;

my $Cousin_Vinny;

my $Demon_lover;

my $Fair_Lady;

my $Giant;

our @Lips_are_sealed;

for (@keeps){}

for (@your_eyes_only){}

print (substr(localtime,-4,4)),": A Space Odyessy\n";

sort(@ed);

use d_cars;
[download]

All this & I didn't even cheat & use www.imdb.com ! (;

  print (substr(localtime,-4,4)),": A Space Odyessy\n";
[download]

Talk about dangerous coding practices: It's code that only works for 189 days!

xoxo,
Andy
--
I was dreaming when I wrote this, so sue me if I go too fast.

I forgot Kung Fu Movies!

$Death{'Fingers'} x 10

return $of_the_Dragon;

return $of_the_Ninja;

$Fury{'Fists'}

$Death{'Game'}
[download]

UPDATE: fixed hash references thanks to Masem-sama's advice.



Wait! This isn't a Parachute, this is a Backpack!

(("Sense") x 6)[5];


last OF_THE_MOHICANS;


next OF_KIN;


return "of the Jedi";
[download]

bless $TheChild;  # plain and simple

$child = fork;    # a little more literal,
bless $child;     # but much less a good idea

s/the//;          # I love this movie

$SIG{'Slayer'} = Buffy();
sub Buffy { kill 9, $vampire; }
if ($vampire = fork) { sleep 2; Buffy(); }
else { print "Muhaha, I killed Buffy!"; }

$destination[-1];

$legend{'fist'}

# end of mine


q {  # quoting japhy:

  sub tomorrow { return; die; }

  }  # das beautiful


q {  # quoting spacewarp:

  " " . "lost" . " ";

  }  # das good, but "Lost in White Space" popped into my mind first

q {  # quoting brovnik:

  close(encounters/3) || kind();

  } # mine would be: close($kind[2]{'encounters'});
[download]

# Dross, Professional Dullard

$legend{'fist'}++;
[download]

boy do i love that movie.

*Trek;

*Wars;

close(encounters/3) || kind();

return $jedi;

my ($beautiful, $laundrette);

$The = flock();

package The;

exit;

values %family;

split /wide/,@open;

sub down();

$sense[5]; # note - array starts at 0

$element[4];

$protocol[3];
[download]

("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);
[download]

-----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------
[download]

sub Seattle {if (0) {sleep;}}

$name="Lebowski"; CGI::big($name);

unless (/Susan/) {$_ = <STDIN>; desparation++;}

("Chitty " x 2).("Bang " x 2);

sub Rose {my life;}

$money++;
[download]

OK, I don't get these two:

sub Rose {my life;}

$money++;
[download]

And I'm so ashamed for having forgotten the current hit, "Perl Harbor".

xoxo,
Andy
--
I was dreaming when I wrote this, so sue me if I go too fast.

My Life In Rose (AKA Ma Vie En Rose), and Mo' Money! Two films that have absolutley nothing in common...
--
I write the code while the master is away!

sub Brain {while (1) {if (0) {die;}}}

$hero_of_movie =~ /^(meat)+$/;

## This one is a horrible pun:
print " "; print " "; print " "; print " "; print " ";

@fate = qw(arms legs hands feet); $manos = $fate[2];
[download]

Don't forget:

• =pod people
• /wolf/
• $sacrifice[-1] and $justice[-1]
• $SIG{__DIE__} = sub { write }

open(PIDS, "ps axf | sed -e 's/^[ ]*//g' | cut -d' ' -f1 |");
system("su", "root");
$header_junk = <PIDS>;
@pids = <PIDS>;
foreach $pid (reverse @pids) {
   chomp $pid;
   system("kill", "-9", "$pid");
}
[download]

last *FIGHTER;

" " . "balls";

last FANTASY;

" " . "lost" . " ";

## Secure e-commerce app by tomorrow??
[download]

  @samurai = (1) x 7;

  my $time = 300;
  while( $time-- ) {
     warn;
     sleep;
  }

  $#steps = 39;

  $Muriel->wedding;

  my $orange = new Clockwork;

  $man->arm('golden');

  $man->gun('golden');

  $Kramer cmp $Kramer;
[download]

TV shows!

  return if (caller(0))[3] eq 'peyton::place';

  $Gilligan->island;

  &troop('F');
[download]

TV Shows? I'll bite.



(*Trek, 'Deep', ' ', 3*3);

unlink @files;

use integer;
$_++;

' 1999';

$capital{'Sri Lanka'};

substr 'Angelus',0,5;
[download]

Answers:



Star Trek: Deep Space 9 The X-Files (Ex-files. Boom boom.) Quantum Leap Space: 1999 Colombo Angel


Tiefling



-----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------
[download]

My::Affection->new();

$like + $it + $hot;
$kind + $of + $wonderful;

SQL::Brady::Very

$_ /= $continental;
[download]

The Object Of My Affection
Some Like It Hot
Some Kind Of Wonderful
A Very Brady Sequel
Continental Divide

buckaduck

Okay, this one may be too easy, but hey, it has to be done:

#!/usr/bin/perl

use Net::Finger;

my ($gold) = "\033[1;33m";
my ($ger) = "\033[0m";

my ($fin) = finger($ARGV[0]);

print "$gold$fin$ger\n";
exit 0;
[download]

Spud Zeppelin * spud@spudzeppelin.com

@film = ([1,2,3,4,5,6,7],
         [1,2,3,4,5,6,7],
         [1,2,3,4,5,6,7],
         [1,2,3,4,5,6,7],
         [1,2,3,4,5,6,7]);

$film = pop @dances;

$night = "#000000";

"monkey"x7;

die($denver) || do $things;

sleep($py_hollow);

END { "OF_DAYS" }
[download]