Select Code to Download

use strict;
use warnings;
...
  my $char = substr( $stream, $i, 1 );
  print $i, ": ", ord( $char ), " => *", $char, "*\n";
}

0: 97 => *a*
1: 97 => *a*
...
98: 97 => *a*
99: 98 => *b*
100: 0 => **