Select Code to Download

use Encode qw( encode_utf8 );

my $encoded = encode_qp(encode_utf8($str));

$ cat a.pl
use strict;
...

   print $str_q;
}