このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1323566370/786
#  \rが30回登場したら30回目より後ろの文字を削除したいんですがどう記述したら良いでしょう。 
#  \rから次の\r間には任意の文字数の文字列があります 
#  言語はパールです 
#   
#  $s =~ s/(((.*?)\r){3})(.*$)//s; 
#  print "$1\n$2\n$3\n$4\n"; 
#  これではだめでした 
#   
# 
# 

'キャリッジ・リターンが30回登場したら30回目より後ろの文字を削除したい'(_文字列,_末尾を削除された文字列) :-
        sub_atom(_文字列,0,_,_,_末尾を削除された文字列),
        count(sub_atom(_末尾を削除された文字列,_,1,_,'\r'),30),!.
'キャリッジ・リターンが30回登場したら30回目より後ろの文字を削除したい'(_文字列,_文字列).