The .. (dot-dot) operator was designed for this:

while (<>)
{
  if (/<!-- Begin -->/ .. /<!-- End -->/) 
  {
    print;
  }
}
[download]

Or, more concisely:

(/<!-- Begin -->/ .. /<!-- End -->/) && print while (<>);
[download]

See Range Operators in perlref(1) for more information.