open my $fh, '<', 'theFile' or die $!;

my $count = 0;
while( <$fh> ) {
    ++$count while m[the]g;
}
print "'the' appeared $count times in 'theFile'";