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