$_ = ">r7.1 |SOURCES={GI=162960844,bw,0-4;GI=162960844,bw,9025576-9025608}|";
$_ =~ /GI=(\d+),(\w+),(\d+\-\d+)/g;
print "$_\n";
print "-" x pos(),"^\n";
print pos(),"\n";
__END__
>r7.1 |SOURCES={GI=162960844,bw,0-4;GI=162960844,bw,9025576-9025608}|
-----------------------------------^
35