while ($line = ) { chomp $line; next if $line =~ /^#|^unassigned/i; if ($line) { my @taxon_value = split /\t/, $line; if ($taxon_value[0]) { if ($kingdom) { my @kingd = $taxon_value[0] =~ m/D_0__(.*?);D_1|k__(.*?);p__/g; foreach (@kingd) { next if /^$/; next if /^unknown/i; next if /^uncultured$/i; next if /^unidentified$/i; push @taxon_list, $_; } } } } }