求助：用perl如何提取文本中某些字符串

weizhiyong

例如一文本a.txt：
options{
sdafsdaf
dsafasdfdsf }
zone "abc.com" IN {

             type master;
             file "1";}
zone "dsf.com" IN {
           asdfsdaf
dfds }
。。。
。。。
想要提取每个zone 后面“”中的内容像abc.com这样的
要怎么编写perl脚本啊。
请高手们不吝赐教，谢谢大家啦！
对不起，让你认为成这样，你不帮随便！
我不是要你们帮我编写，我只是不知道用什么方法，我不是一个perl的程序员
我编写的域名管理系统需要预先载入原服务器信息入数据库，可是LINUX下的脚本编写不熟
不知道用什么函数，还是提取所有字符串进行对比
只是问一问如何提取文件中字符串
并没有把你当成code writer
请一个斑竹不用这么小心眼
你不帮，有人帮
不用锁我贴！

[ 本帖最后由 weizhiyong 于 2006-3-13 16:36 编辑 ]

兰花仙子

你的帖子违背一项基本的提问原则。
你尝试过自己努力写code吗？写的过程遇到了什么问题？再把你的问题贴出来。
请记住：这里不是code writer，这里只是help你解决问题的地方。