Select Code to Download

use warnings;
use strict;
...
387#19128!NM_167212@[1103;1104]    2
438#1781!NM_135492@[1337]    1
442#1794!NM_001042886@[1349]    1

$ perl tst.pl
$VAR1 = {
...
                           'val' => '1'
                         }
        };