Z:\>perl -MEncode -e "$,=$/;$c=q(ö);@L=map{encode($_,$c)}qw(iso-8859-1 cp1250 cp850);print $c,@L"
÷
÷
÷
ö
Z:\>