my ($pat) = $line =~ m/^LOC_Os0[1-7]g[0-9]*.[0-9]\s/;