Select Code to Download

use strict;
use warnings;
...
 <DESCRIPTION> </DESCRIPTION>
</EVENT>
</ROOT>

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