print "$1, $2, $3\n" while $line =~ /GI=(\d+),(\w+),(\d+\-\d+)/g; [download]
In reply to Re: Generalizing Regex with Multiple Match by ccn in thread Generalizing Regex with Multiple Match by neversaint