Select Code to Download

while ( ($pos = index($sequence, $motif, $pos)) >= 0 ) {
    lock $semaphore;
    print $fh join("\t", $genome_build, @row, $chr, $pos+1), "\n";
    $pos += $len;
     }

while ( $sequence =~ /$motif/g ) {
        lock $semaphore;
        print $fh join("\t", $genome_build, @row, $chr, pos($sequence)
+), "\n";
        }

Out of memory!
Callback called exit at find_and_load_motifs_test.pl line 150.
...
        9 running and unjoined
        1 finished and unjoined
        0 running and detached

### INCLUDES #########################################################
+################################
use strict;
...
        sleep 60 if ( scalar( keys(%threads) ) >= $max_threads );

        }