while (<$fh>) {
    chomp;
    next unless /\bWood\b/;
    ...
}