Select Code to Download

my $file = '/home/guest/sampir.txt');
open (PIR, '<', $file) or die "Can't read '$file': $!\n";
...
        die "Unknown line type at line $. of '$file'\n";
    }
}

@arr = (
  [
...
    'GDVFKGKRIFIMKCSQCHTVESSSSKGGKHKTGPNLHGLMIYARAJSEKFGSSSSSSSSSSR'
  ]
);

print $arr[0]->[1],"\n";

TITLE            cytochrome c [validated] - human Homo sapiens