Select Code to Download

my @tags = split /\t/, $line;
my @Definition=("NN", "NNS");
next unless (grep {$_ eq $tags[ 1 ]} @Definition);

next unless grep($_ =~ /^$tags[1]/, @Definition);