再来看一个例子：以/n为分隔符：
#!/bin/perl
my $record =' ';
open (DNAFILENAME,'f:perlstrawberry1.gb')||die("can not open the file!");
$/="/n";
$record = <DNAFILENAME>;
print $record;
我们期望的结果应该是配匹到第四行以前的内容为一行，但是结果是否如此？
F:>perlb.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
ACCESSION JX118024
//
F:>
为什么没有匹配到第一个/ 呢？
其实这里/这一行并不是仅仅有一个/,而是还有其他的成分在这里，我们把这一行完全删除，然后重新只输入一个/，我们再来匹配
F:>perlb.pl
LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012
DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1)
gene, partial cds; plastid.
/
F:>
这次就得到正确的结果了。
