for (my $x=0;$x<length($string);$x++)
{
   if (ord(substr($string,$x,1))>127)
   {
   substr($string,$x,1)='&#'.ord(substr($string,$x,1)).';';

   # substr($string,$x,1)=' ';  # or use this line instead
   }
}

##</code><code>##

for (my $x=0;$x<length($string);$x++)
{
  print ord(substr($string,$x,1)),"\t",substr($string,$x,1),"\n";
}