perl读取文件中的特定行

#!/bin/perl
open(FD,"while()
{
  if (2 .. 5) #包含第二行和第五行
  {
    print;
  }
}
close(FD);

#wrong
$begin=2;
$end=5;
open(FD,"while()
{
  if ($begin .. $end) #包含第二行和第五行
  {
    print;
  }
}
close(FD);

# right
$begin=2;
$end=5;
open(FD,"while()
{
  if ($.==$begin .. $.==$end) #包含第二行和第五行
  {
    print;
  }
}
close(FD);

open(FD,"while()
{
  if (2 ... 5) #包含第二行和第五行
  {
    print;
  }
}
close(FD);

open(FD,"while()
{
  if (/range/i .. /scalar/) #包含range和scalar所在的行
  {
    print;
  }
}
close(FD);

open(FD,"while()
{
  if (/range/i ... /scalar/) #包含range和scalar所在的行
  {
    print;
  }
}
close(FD);

对于匹配的字符串在同一行的情况，则不适用，例如

#wrong
#开始字符串和结束字符串在同一行
open(FD,"while()
{
  if (/begin/i .. /end/) #包含begin和end所在的行
  {
    print;
  }
}
close(FD);

#开始字符串和结束字符串在同一行
open(FD,"while()
{
  if (/begin/i .. /end/) #包含begin和end所在的行
  {
    print;
  }
}
close(FD);