Some clue as to how to zero in on line 1, column 1373, byte 1373 of a file would be helpful as well.

Untested code:

use autodie;
use Fcntl ':seek';
open my $fh, "<:raw", "your-file-name-goes-here";
seek $fh, 1373, SEEK_SET;
read $fh, $_, 1;  # No sysread!
print $_, "\n";
[download]