>>878
ちょいと事情がありまして、
---8<---
while(<>){$text .= $_;}
$_ = $text;
s/\r\n/\n/g;
s/(「.*)\n(.*」)/$1$2/g; # 869氏提案
s/\n/\r\n/g;
print $_;
---8<---
なスクリプトに、
---8<---
てすと
「Ａ
Ａ
Ａ」
「ＢＢＢ！
　」
「ＣＣＣ「Ｄ」ＣＣＣ
　」
おわり
---8<---
なSJISテキストを食わせて一括整形したいのでつ。