HTML::Entities で encode しようとしてうまくできないことがある
&quot;<&gtあたりがうまく行かない
文字列を直に渡したときはうまく行く?
とりあえず別途変換して逃げる……

> $data = decode_entities($data);
> $data =~ s/&quot;/"/g;
> $data =~ s/</</g;
> $data =~ s/>/>/g;

"HTML::Entities - HTMLエンティティ(実体参照)文字列をエンコード/デコードする - perldoc.jp" http://perldoc.jp/docs/modules/HTML-Entities-3.55/Entities.pod