Select Code to Download

    while ($str =~ /searchword/g) {
        my $loc = tell($fh) - length($str) + pos($str);
        print "Found a match starting after $loc.\n";
    }