Your $r =~ /^Services/ is the problem. Try running this and look at printout of values of $r.

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