Select Code to Download

#!/usr/bin/perl

use strict;
...
        printf "Found %s at offset %x\n", $find, tell $fh + $idx - $by
+tes;
    }
}