while (<FILE>) {
  if (/BEGIN/ .. /END/) {
    # do stuff
  }
}