- or download this
GSAD1234
GSAD2345
GSAD4567
- or download this
GSAD1234 \t 123 \t 45 \t no match \t fungus \t protein_x
GSAD5678 \t 123 \t 51 \t plant \t fungus \t protein_y \t transporter
- or download this
GSAD1234 \t 123 \t 45 \t no match \t fungus \t protein_x
- or download this
#!/usr/bin/perl
...
my @matches = grep(/^($_)/,@strings);
print join ",",@matches;
}