このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1362913813/779
#  ●Regular Expressionの使用環境 
#  Perl(Emeditor) 
#  
#  ●検索か置換か? 
#  検索 
#  
#  ●説明 
#  各行の1番目のAまでを検索したい 
#  
#  ●対象データ 
#  お肉料理 
#  お魚料理 
#  料理 
#  
#  
#  ●希望する結果 
#  3行目の"料理"のみマッチさせたいです。 

'各行の1番目のAまでを検索したい。ただし前部に忌避する連接した語が存在します。'(_文字列,_A,_前文字列,_A,_後文字列) :-
        sub_atom(_文字列,_前文字列,_A,_後文字列),
        forall(忌避する連接した語(_A,_忌避する連接した語),\+(sub_atom(_前文字列,_,_,0,_忌避する連接した語))),!.

忌避する連接した語(料理,お肉).
忌避する連接した語(料理,お魚).