携帯メールで送られてきた絵文字を削除

携帯メールで送られてきた絵文字を削除したく、
HTML::Entities::ImodePictogram など
いろいろ試していますが、うまくいきません。
下のサンプルでは、"絵文字"がハードコーディングだったり、フォームからの入力値ではうまく削除できますが、メールで受けたものでは削除できません。
Jcode を使って文字コード変換してから試してもだめです。

-----------------------------------

$text = "絵文字";
$HTML::Entities::ImodePictogram::ExtPictorgram_re .= '|[\xF3\xF4\xF6\xF7][\x40-\x7E\x80-\xFC]';
$text = remove_pictogram($text);
$text =~ s/\x1B\$(.+?)\x0F//g;

-----------------------------------

iモードに限らず、ezweb/vodafone live! においても
受け取ったメールの絵文字を自動削除したいのですが、どのようにすればよいでしょうか。

No.1 回答者： taseki 回答日時： 2006/09/30 02:40

そのコードで問題ないようにも見えるのですが、

> メールで受けたものでは削除できません
もしかしてMIMEデコードなどメールからデータを取得する段階で失敗しているということはないですか？