问个问题

>123
GTGAATGAAGATGGCGTCTAACGACGCTTCCGCTGCCGCTGTTGCCAACAGCAACAACGA
CACCGCAAAATCTTCAAGTGACGGAGTGCTTTCCAGCATGGCTGTCACTTTTAAACGAGC
CCTCGGGGCGCGGCCTAAACAGCCTCTCCCGAGGGAAATACCGCAAAGACCCCCACGGCC
.......................
对于这样的一个含有序列的文件，我想要提取出序列的一段，比方说30-100这个区域，应该用什么命令啊？
我找了一下perl的函数，也没发现哪一个适合我，请高手指教，只给我说一下思路和命令就行，不需要全部代码，谢谢！

substr

use Bio::Seq;

$sseq = $seq->subseq(30,100);