Select Code to Download

#! /usr/bin/perl
use warnings;
...

binmode *STDOUT, ':encoding(UTF-8)';
say $string;