open (my $fh, '<', 'file') or die "$!\n";
binmode($fh);

while(read $fh, my $char, 0x01){
    $buf = unpack('H*', $char);
    if ($buf =~ /13/){
    print "found 0x13\n"
    }
}