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