Select Code to Download

use strict;
use warnings;
...
my $str_q = encode_qp($str);

print $str_q, "\n";

a„z
Wide character in subroutine entry at ./x.pl line 18.