my %data = map { /(.+)\s+\|\s+(.+)/; $1 => $2 } read_file $test2; #### my %data = map {s/\.\d+//g; /(.+)\s+\|\s+(.+)/; $1 => $2 } read_file $test2; #### Q197F8 IIV3-002R PF04947 Q91G88 IIV6-006L PF01486 PF00319