一向に答え出されないな。
自分はサクラエディタとやらは使わないしPerlしかやらないが、
良ければこれを参考にしてくれ。

/<<<s*([a-zA-Z0-9_]+)\n.*?n\1;/

主な条件は、後方参照ができること（\1が使える）と、
複数行のマッチができること（.に\nを含ませる）。

できれば .*? を (.*?) として、$2で抜き出せれば理想的なんだが。