Select Code to Download

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

...
    ++$count while m[the]g;
}
print "'the' appeared $count times in 'theFile'";

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