いいじまです。

> % /usr/local/bin/perl -e 'use Encode; $a="=?x-user-defined?Q?=A0?="; decode("MIME-Header", $a, Encode::HTMLCREF);'
> Unknown encoding "x-user-defined" at /usr/local/lib/perl5/5.8.7/mach/Encode.pm line 166

eval を使うのはいかがでしょう？
$a = eval 'decode("MIME-Header", $a, Encode::HTMLCREF);' || $a;

========================================================================
飯嶋 浩光 / でるもんた・いいじま   http://www.ht.sakura.ne.jp/~delmonta/
IIJIMA Hiromitsu, aka Delmonta           mailto:delmonta@ht.sakura.ne.jp