$seq='LPNTGVTNNAYMPLLGIIGLVTSFSLLGLXKARKD';
print substr $seq, 5,10;print "\n";