$sub = substr($seq, -1000)