while($string=~m/SUMMARY(.*?)DESCRIPTION/gi){
     print 'Summary: ',$1;  ## prints title of event
}