my ($chr,$prot,$panel) = /(chr.*?)\s.*urn:lsid:(.*?)\s.*panel:(.*?):/i; #### my ($chr) = /(chr.*?)\s/i; my ($prot) = /urn:lsid:(.*?)\s/i; my ($panel) = /panel:(.*?):/i;