$r->print($strA);  # XXX
$r->print($strB);  # XXX 

##</code><code>##

$r->print(Encode::encode_utf8($strA));
$r->print(Encode::encode_utf8($strB));

##</code><code>##

utf8::encode my $strA_utf8 = $strA;
utf8::encode my $strB_utf8 = $strB;
$r->print($strA);
$r->print($strB);