Select Code to Download

use strict;
use warnings;
...
Event Number Four
DESCRIPTION
Lorem ipsum

 <Event 1>
 <Event 2>
 <The Third Event>
 <Event Number Four>
(All done. 4 result(s) found.)

my @results = $string =~ m/SUMMARY\s*(.+?)\s*DESCRIPTION/g;
print map { " <$_>\n"} @results;