Subject: XYZ =?UTF-8?B?7Y647JWI7ZWcIOqwgOq1rOyXkOyEnCBCTkMg6rOE7KCVIO2ZnOyEsQ==?=
 =?UTF-8?B?7ZmU?=

##</code><code>##

talexb@foo:~/bin$ encode "XYZ &#54200;&#50504;&#54620; &#44032;&#44396;&#50640;&#49436; BNC &#44228;&#51221; &#54876;&#49457;&#54868;"

 =?UTF-8?B?WFlaIMOtwo7CuMOswpXCiMOtwpXCnCDDqsKwwoDDqsK1wqzDrMKXwpDDrMKEwpwgQk5DIMOqwrPChMOswqDClSDDrcKZwpzDrMKEwrHDrcKZwpQ=?=

##</code><code>##

talexb@foo:~/bin$ decode =?UTF-8?B?7Y647JWI7ZWcIOqwgOq1rOyXkOyEnCBCTkMg6rOE7KCVIO2ZnOyEsQ==?= =?UTF-8?B?7ZmU?=
&#54200;&#50504;&#54620; &#44032;&#44396;&#50640;&#49436; BNC &#44228;&#51221; &#54876;&#49457; &#54868;

##</code><code>##

talexb@foo:~/bin$ decode =?UTF-8?B?WFlaIMOtwo7CuMOswpXCiMOtwpXCnCDDqsKwwoDDqsK1wqzDrMKXwpDDrMKEwpwgQk5DIMOqwrPChMOswqDClSDDrcKZwpzDrMKEwrHDrcKZwpQ=?=
XYZ í¸ìí ê°êµ¬ìì BNC ê³ì  íì±í

##</code><code>##

#!/usr/bin/perl -wC

#  Encode to utf-8.

use Encode qw/encode/;

{
    my @out;
    foreach my $arg (@ARGV) {

      push(@out, encode("MIME-Header",$arg));
    }
    print join(' ',@out) . "\n";
}

##</code><code>##

#!/usr/bin/perl -w

#  Decode from utf-8.

use Encode qw/decode/;

{
    my @out;
    foreach my $arg (@ARGV) {

      push(@out, decode("MIME-Header",$arg));
    }

    #  See http://www.perlmonks.org/?node_id=742727 for why I've used binmode
    #  here.

    binmode STDOUT, ':utf8';
    print join(' ',@out) . "\n";
}