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