Select Code to Download

for (my $x=0;$x<length($string);$x++)
{
...
   # substr($string,$x,1)=' ';  # or use this line instead
   }
}

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