perl -wle'
my $value = "Start your year with a Smart move .. Register for FREE";
my $eval = "require Encode; $value = Encode::decode('MIME-Header', $value)";
print "Eval:\n$eval"'
Eval:
require Encode; Start your year with a Smart move .. Register for FREE = Encode::decode(MIME-Header, Start your year with a Smart move .. Register for FREE)