如何用perl 从文件里面抓一段内容出来?

假设文件 output.txt的内容如下：
====================
the following are the list of products:
airplan
jet
bullet
gun
the following are the list of money:
RMB
Dollar
Riyuan
====================

现在我想把两个list的title和内容，分别放到两个不同的文件中去，比如：
the following are the list of products:
shoe
table
bug
放到文件 product.txt里面去。同样的，另外一个放到 money.txt里面去。但我只知道用//可以查找，但接下怎么把这块内容截出来，我就不会了。向大侠们请教。

open FILE, "< output.txt";

while(<FILE>)
{
     if (/the following are the list of products:/)
    {
    }

    if (/the following are the list of money:/)
    {

    }
}

谢谢楼上的兄弟先，你的这个方法，只能把 title 如"the following are the list of products:" 打印到文件吧，后面紧跟着的list呢？

谢谢。

回复 百分百好牛


    用个变量标示 控制下 就是了
    my $flag;
     if(/regex/)
     {
        $flag=1;
      }
      print OUT "$_" if $flaf == 1;
类似这样  不同的段 flag设成不同的值就是了

let me try it, thx.

$ cat output.pl $ perl output.pl
open products.txt file to write data
open money.txt file to write data
$