in reply to Generalizing Regex with Multiple Match

        print "$1, $2, $3\n"
              while $line =~ /GI=(\d+),(\w+),(\d+\-\d+)/g;

[download]

In Section Seekers of Perl Wisdom