c:\test>perl -E"$b = 'fred'; say for $b, ~$b, ~~$b, ~~~$b, ~~~~$b, ~~~~~$b"
fred
ÖìÜø
fred
ÖìÜø
fred
ÖìÜø