Select Code to Download

 my $str   =  $Genome;
        my $match = "ATCGACTACGACTCGACT";
...
          
             print "'$s' at offset $i matched\t".length($x)."\n" unles
+s length($x) > 5;
        }

/* @source primersearch application
**
...
    return;
}