このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301067486/297
#  お願いします 
#   
#  ●正規表現の使用環境 
#  Hex Editor Neo 
#   
#  ●検索か置換か? 
#  検索 
#   
#  ●説明 
#  1文字目と3文字目が同じで、2文字と目と4文字目が同じの4文字の文字 
#   
#  ●対象データ 
#  ABAB 
#  PAPA 
#  0101 
#   
# 
# 

'1文字目と3文字目が同じで、2文字と目と4文字目が同じの4文字の文字'(_文字列,_前文字列,_適合文字列,_後文字列) :-
        sub_atom(_文字列,_,_,_,_前文字列,_適合文字列,_後文字列,_,[A,B,A,B],_),
        \+(A=B).