木下です。 > Perlでは動くっていうのがわかりませんけど、 > 「beginで始まって、途中にbeginを含まないで、endで終わるもの」 > > '/(begin([^begin]*)end)/' これですと、b,e,g,i,n 以外になるようです。 で、以下のようにしたら、ばっちりでした。 '/(begin.*?end)/' *の後ろに?を付けると、なるべく少なくマッチしてくれます。 「?」の使い方をすぐに忘れてしまいます。 PerlとPHPで文字クラスの動作が違うじゃんと思ってたら勘違いでした。 お騒がせしました。