how to I count the occurrences of word 'the' in a file?

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

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

how to I extract the numeric values in a () sample code:? $extract =~/^\( (\d.+) \)$/

if( $extract =~/^\( (\d.+) \)$/ ) {
    print "The number was $1";
}
else {
    print "The regex didn't match";
}
[download]