while(<>) {
   if (my $r = /^Services/ .. /^Users/ ) {
      next if $_ =~ /^Services/;
      print $_;
      last if $r =~ /E0$/;
   }
}

##</code><code>##

while(<>) {
   if (my $r = /^Services/ .. /^Users/ ) {
      next if $r =~ /^Services/;
      print $_;
      last if $r =~ /E0$/;
   }
}


##</code><code>##

while(<>) {
   if (my $r = /^Services/ .. /^Users/ ) {
      #next if $_ =~ /^Services/;
      exit if $r =~ /^Services/;
      print $_;
      last if $r =~ /E0$/;
   }
}