Select Code to Download

 
$braces = qr/(?<braces>\{ ([^\{\}]++ | (?&braces))*+ \} )/x;
if ($h =~ s/class \s+ (?<class_name> \w+) \s* (\: (\s* \w*)? \s* (?<an
+cestor> \w+))? \s* $braces//x) {
   print "hi\n";
}

class MyClassName : public MyAncestorClass {
...
...
};

  __property TNotifyEvent OnMonaDocSaveToDB = {read=FOnMonaDocSaveToDB
+, write=FOnMonaDocSaveToDB};