my @events;
while ($page_body =~ /<EVENT>(.*?)<\/EVENT>/sg){
 push @events, $1 #note $1 might have zero length.  
}