my $string = chr(400);
print length($string),"\n";
local $/=\1;
open FH, "<", \$string or die $!;
while (my $byte = <FH> ) {
  print "<$byte>\n";
}
close FH;