$s = join '', map chr(), 128 .. 255;; ## Build a string of hi-bit chars.

print $s;; ## display it