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