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

##</code><code>##

$string = "dsadfkjasdkhakhds dhf sahd fsd "
          "sdshsa ashjashjas  asjhasjhasdh";

$str = 'Fred is ' $num " years old\n";