binmode STDOUT, ":encoding(UTF-8)";
print $s;

##</code><code>##

use open ':std', ':encoding(UTF-8)';  # binmodes STD*
print $s;