my $offset = 0;
my $buffer;

open (FILE, "file.binary");
binmode FILE;

while ( read(FILE, $buffer, 1, $offset++) )
{
      ... Code here ...
      $buffer = "";
}