>>44
Perl でいい？ちょっと苦しい感じもするけどこんなのとかどうでしょう？

$str =~ s/(?:(「.*?」)|(\<))/$1||"<"/ge;
$str =~ s/(?:(「.*?」)|(\>))/$1||">"/ge;