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