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