>>49
わけたままのほうが圧倒的に処理が速いぞ。

と言いつつ>>53のバグフィックス＆処理速度向上版
$value=~s/\+|([\+&"<>,])/$1?'&'.(qw(amp quot lt gt cedil))[index'&"<>,',$1].';':' '/eg;