c:\test>perl -e "for $f ( @a = qw/0 1 2.3 fred . ''/) { print $f =~ $f, '-', $f = ~$f, $/; }"
1-╧
1-╬
1-═╤╠
1-ÖìÜ¢
1-╤
1-╪╪