my $line = $_ if /\bWood\b/;
    chomp ($line);
    last if !line;