my ($s, $b);
foreach my $line (@lines) 
{
  if ($line =~ /^\n$/i) {
    $b++;
    last if (($b == 2) && $s);
  } else {
    $b = 0;
  }
 
  if ($line =~ /^$arc/) { 
    $s = 'true';
  }

  if ($s) {
    print OUTPUT $line;
  } 

}