my ($locus) = /LOCUS\s*(\w+)/;