my $ord;
 s/(.)/$ord=ord $1;
 if ($ord < 128) {
  $1;
 } else {
  "&#$1;";
 }
 /ge;