\rが30回登場したら30回目より後ろの文字を削除したいんですがどう記述したら良いでしょう。
\rから次の\r間には任意の文字数の文字列があります
言語はパールです

$s =~ s/(((.*?)\r){3})(.*$)//s;
print "$1\n$2\n$3\n$4\n";
これではだめでした