ものっそ丸投げだなｗ
リージョンの開始位置までポイントを進めて、
リージョンの終了位置を検索の境界に指定して検索を進めればいい。

goto-char、re-search-forward と match-string とかを describe-function しなさい。
save-restriction とか save-excursion、save-match-data とかもぐぐるといいかもね。

単純に操作としてやりたいだけなら keep-lines とかはどうかね。