while ( $sequence =~ /CACGTG/g ) {
        print join("\t", $chr, '+', pos($sequence)-6), "\n";
        }

while ( $sequence =~ /GTGCAC/g ) {
        print join("\t", $chr, '-', pos($sequence)-6), "\n";
        }