print qq{@{ [ ord $_ ] } => $_\n}
   for split m{}, $buffer;