Perl CSV処理 ダブルクオーテーション内のカンマを無視する

ダブルクオーテーション内のカンマを無視するということをやろうとしている。
PaeseWordsとparam_lineを使う方法が簡単でいいのですが、うまくいかないことがあり、別の方法で実施。
Text::ParseWords
&parse_line(',',1, $_);
&parse_line(',',undef, $_);
シフトJISの2バイト目が5cの文字があるときにうまくいかないことが判明。
文字化けも発生するようで有名な問題でした。
いい対策がない。