Select Code to Download

+-----------------------------------------------------------------+
|                                                                 |
...
|  +--------------------+     upgrade     +--------------------+  |
|                                                                 |
+-----------------------------------------------------------------+

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

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