P:\test>perl -le"no utf8; $x = qq[öa]; print $x;"
÷a