my $string = q(
大変勉強になりました。ありがとうございました。

>>70 もっときれいで効率の良い書き方がありそうな気もしますが無事処理できるようになりました。
>>71 ありがとうございます。でもbinmodeを忘れていてwarningがでてました（汗
>>75
今回の前と後ろをキャプチャーする方法のように正規表現が複雑になったり
オフセットが入っているだけなので取り出す処理が必要だったりと
正規表現全体の効率を落とすよりはよさそうですが
もっと自然に取れる方法があるといいなぁと思いました。
);
while( $string =~ /^(.*?)(>>(\d+))(.*)$/s ){
$string = $4;
printf "引用番号:%d\n",$3;
my($value,$next) = ( $string =~ /^(.*?)(?=>>\d+)(.*)$/s ) ? ($1,$2) : ($string,'');
$value =~ s/^(\r?\n|\s)//go; $value =~ s/(\r?\n|\s)$//go; $value =~ s/\r?\n/<br>/go;
printf "返信内容:'%s'\n",$value;
print "-----\n";
$string = $next;
}