Google Treasure Hunt Question 2

After solving question 1 successfully I decided to plod on and answer question 2 as well. It was, for me at least, far less challenging than the first question.

This time, you are generated a set of files with random directories and file names that you are asked to download and process. Once I got passed the immediate suspicion of downloading a zip file (for fear of viruses) it took no time at all to whip up a solution. My question was:

Here is a random zip archive for you to download:
GoogleTreasureHunt08_15866755520722619948.zip

Unzip the archive, then process the resulting files to obtain a numeric result. You'll be taking the sum of lines from files matching a certain description, and multiplying those sums together to obtain a final result. Note that files have many different extensions, like '.pdf' and '.js', but all are plain text files containing a small number of lines of text.

Sum of line 4 for all files with path or name containing BCD and ending in .pdf
Sum of line 5 for all files with path or name containing mno and ending in .rtf
Hint: If the requested line does not exist, do not increment the sum.

Multiply all the above sums together and enter the product below.
(Note: Answer must be an exact, decimal representation of the number.)

Again, my solution was Perl based and generated a correct answer of 364264342 for my particular zip file:

#!/usr/bin/perl -w
use strict;
use File::Find;
use FileHandle;
my $total1 = 0;
my $total2 = 0;
find(\&wanted, ("/home/gwhite/GoogleTreasureHunt08_15866755520722619948"));
print $total1*$total2."\n";
sub wanted {
 return if (-d $File::Find::name);
 if (($File::Find::name=~m!BCD!i) && ($File::Find::name=~m!\.pdf$!i)) {
   my $fh = new FileHandle;
   $fh->open($File::Find::name) || die ($File::Find::name." Oops: $!\n");
   while (<$fh>) {
     last if ($fh->input_line_number>4);
     chomp($_);
     $total1+=$_ if ($fh->input_line_number==4);
   }
   $fh->close();
 }
 elsif (($File::Find::name=~m!mno!i) && ($File::Find::name=~m!\.rtf$!i)) {
   my $fh = new FileHandle;
   $fh->open($File::Find::name) || die ($File::Find::name." Oops: $!\n");
   while (<$fh>) {
     last if ($fh->input_line_number>5);
     chomp($_);
     $total2+=$_ if ($fh->input_line_number==5);
   }
   $fh->close();
 }
}