binmode STDOUT, ':encoding(...)';
print $title;

##</code><code>##

use Encode qw( encode );
print encode('...', $title);