$ perl -wMstrict -n
my $line = $_ if /\bWood\b/;
chomp ($line);
print "BANG!\n" if !$line;
__END__
Hello, Wood World
Foobar