Select Code to Download

$x = chr(400);
print "Length is ", length $x, "\n";     # "Length is 1"
...
   print "Length is ", length $x, "\n"; # "Length is 2"
   printf "Contents are %vd\n", $x;     # "Contents are 198.144"
}