perl应用：从NCBI提供的信息中获取需要的序列（上）use Scalar
perl应用：从NCBI提供的信息中获取需要的序列（下）use Scalar($annotation,$dna) ($record~/^(LOCUS.*ORI
perl应用：从NCBI提供的信息中获取需要的序列（下）use Scalar
($annotation,$dna) = ($record=~/^(LOCUS.*ORIGIN\s*\n) (.*)\/\/\n/s);
这一行表示，如果在$record中可以匹配到（Locus.*ORIGIN\s*\n) 和（.*) 那么就将第一个括号中的数值赋给$annotation,把第二个括号中匹配的内容赋给$dna.
另外一个就是$/这个变量的用法。
