hello

ive been stuck with this bit of code, where it must read keywords from an array, and search them from a .txt file.

foreach $kw(@keywords)
{ $numOccur=0;
while(<FILE2>)
{ if (/$kw/)
{ $numOccur=$numOccur+1;
}
}
push @occurence, $numOccur;

CAN U HELP ME OUT PLZ.. IVE HAV HAD SLEEPLESS NIGHTS WITH THIS!!

THANKS

tim burton

{ local $/ = '';
$file = <FILE2>;
}

foreach $kw (@keywords) {
$numOccur++ while $file =~ /\b$kw\b/ig;
}
push @occurence, $numOccur;