Select Code to Download

use warnings;
use strict;
...
        print "$string\n";
    }
}

HT00000000    I
HT00000000    S
...
H000000000    I
H000000000    O
H000000000    I