Select Code to Download

#! perl -slw
use strict;
...
II  5   D   X
II  8   R   T
II  10  I   I

C:\test>1158701
{
...
  ">I"  => "CIATGGCTATAAAATGACTAGTAGCTAGATACCACAGATACGATACAACA",
  ">II" => "IATCCATAITACGATACAACACATCAGTATAAAATGACTAGTAGCAGAC",
}