#!/usr/bin/perl    
use strict;    
use warnings;

open(my $in,  "kinases_map.txt") || die "can't open file: $!";
     

my %hash;

while (<$in>) {	
    if (/[^|]+\|([^|]+tyrosine[^|]+)\|[^|]+\|[^|]+\|(.+)/){
	$hash{$2} = $1;
    }
}
    
#print %hash;

# parcours des paires clé=>valeur
while ( my ($cle,$val)=each(%hash) ) {
    print "cle: $cle, valeur: $val\n";
}

close ( $in);
