如何进行多行匹配

nfwolf

=pod
HEAD
//所属模块: Elastos/FunctionTests/Mobile/Libraries/BambooApi
//测试对象: getAuthorInfo
//函数原形:
//参数说明: 获取内容的作家信息接口
//运行环境: msvc_x86
//设计编码: hongliang
//完成时间: 2010-01-29 14:19:39
END
=cut

测试文件如上，我想匹配文件中所有HEAD和END之间的字符串，请问如何做，多谢！
我用@FIRST = grep /(HEAD)(.*)(END)/sm, @input;
结果什么都没有，如果修改成@FIRST = grep /HEAD/sm,  @input;，结果只输出一行！

[ 本帖最后由 nfwolf 于 2010-1-28 15:26 编辑 ]

leigh111

(.*) 改成 ..两个点吧

shaneqi

$/ = undef;

nfwolf

没啥作用！什么原因呢？

toniz

@FIRST = grep { /HEAD/../END/} <FR>;:wink:

nfwolf

多谢楼上的，搞点了