while (my $line = <ZFILE>) {
  if ($line =~ /.../) {
     ...;
  } elsif ($line =~ /.../) {
    while ($line = <ZFILE>) {
      ...;
    }
  }
}