while ($dna=~ m/(^\w{2}\s\(\d+\)\sLocus:(\s\d+)+)/mg) {
print "\n", $1, "\n";}