$Byte = substr($_[0],$i,1);

##</code><code>##

      $Byte = ord substr($_[0],$i,1);