You need to use a while loop, like this:

while ( $string =~ /(SUMMARY.+?DESCRIPTION)/ig ) {
    print "Summary: $1\n";  ## prints title of event
    }
[download]