use 5.010;
while(<>) {
   state $done;
   if ( /^Services$/ .. /^Users$/ ) {
      print "$_";
      $done = 1;
      next;
   }
   last if $done;
}

##</code><code>##

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