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