...
my %motifs : shared;
my $semaphore : shared; ################# Added.

...

        while ( ($pos = index( $sequence, $str, $pos)) >= 0 ) {
            lock $semaphore; ################################# Added.
            print join "\t", $chromosome, $pos, $motif;
            $pos += $len;
        }