Help for this page
Select Code to Download
Select
or
download this
my $line = $_ if /\bWood\b/; chomp ($line); last if !line;