Select Code to Download

Select or download this

#!/usr/bin/env perl
use 5.014;
use strictures;
...

__DATA__
Your 200 lines of test data…

Select or download this

moo@cow[51]~>perl pm-1118102
Query (q to quit): archaea
   259697659 -> root;cellular organisms;Archaea;Euryarchaeota;Thermoco
+cci;Thermococcales;Thermococcaceae;Pyrococcus;Pyrococcus abyssi;Pyroc
+occus abyssi GE5;
...
   283552125 -> root;Viruses;ssRNA viruses;ssRNA negative-strand virus
+es;Orthomyxoviridae;Influenzavirus A;Influenza A virus;H5N1 subtype;I
+nfluenza A virus (A/chicken/Nigeria/08RS848-4/2006(H5N1));

Matched 1 record in 0.2 milliseconds