use re 'debug';
$_ = join '', map chr, 0 .. 31, 128 .. 255;
1 while m{.}sg;