use Encode qw(is_utf8 encode decode);
binmode STDOUT,':encoding(iso-8859-1)';
my $str = "This's a \x{201c}test\x{201d}";  # This is a "decoded" str.
print "$str\n";                             # Encoded by :encoding