Select Code to Download

use Encode qw(decode);

...
my $chr = decode('MIME-Header', $str);

print "$chr\n";

UTF-16:Unrecognised BOM 7700 at /.../Encode/MIME/Header.pm line 81.

use MIME::Base64;

...

my $chk = decode_base64($cstr);
print "$chk\n";

w Credit Card Could Be Headed Your Way