perl 拆分巨大文件

perl 拆分巨大文件

有一些巨大文件需要处理,都是3G以上的,格式如下

<SnpInfo rsId="224" observed="C/T">
...
</SnpInfo>
<SnpInfo rsId="225" observed="C/G">
...
</SnpInfo>
<SnpInfo rsId="226" observed="C/T">
...
</SnpInfo>

想将文件以

<SnpInfo rsId="226" observed="C/T">
...
</SnpInfo>

拆分成一个个小文件该怎么写呢?
看精华