$sub = substr($seq,6, 4);