关于块模式匹配的问题

关于块模式匹配的问题
perl 代码有这么一段

open (fp, "file");

while(<fp>) {
[color=red]if(/begin/ ... /^end/) [/color] {
print "block1";
print ;
}
红色标记得要怎么解释呢？