Help for this page

Select Code to Download

Select or download this

my @ICE = map { [ split /\s*\(tab\)\s*/ ] } <DATA>;
my %seen;
...
30F-WKS(tab)`1781183799.xxxx1' (tab)     IC---;
30F-WKS  (tab)   `1781183799.xxx11'  (tab)    IC---;
ADM34A3F9  (tab) `1781183799.41455'  (tab)    IC---;

Select or download this

$VAR1 = [
          [
...
          'ADM34A3F9' => 1,
          '30F-WKS' => 2
        };