use strict;
use warnings;

my $str = <<DATA;
<ref id="ref1">
<ref id="ref2">
<ref id="ref3">
</end>
<ref id="ref4">
<ref id="ref5">
</end>
<ref id="ref6">
<ref id="ref7">
<ref id="ref8">
</end>
DATA

open IN, '<', \$str || die "\nCan't open test.in\n $!\n";

local $/ = '</end>';

while (<IN>) {
    my @avalues = /="([^"]+)"/g;

    next unless @avalues;
    print "New Group: @avalues\n";
}
close (IN);

##</code><code>##

New Group: ref1 ref2 ref3
New Group: ref4 ref5
New Group: ref6 ref7 ref8