#!/usr/bin/perl

use strict;
use warnings;

my $value = "Start your year with a Smart move .. Register for FREE";

eval "require Encode; $value = Encode::decode('MIME-Header', $value)";