while( $string =~ m/(SUMMARY.+?DESCRIPTION)/ig ) {
    print "Summary: $1\n"
}