#!/usr/bin/perl -w
use strict;

my $num =1;
while(<DATA>) 
{
   if ( (/^Services\s*$/../^Users\s*$/) =~ /^(\d+)(?<!^1)$/ ) 
   {
      last if $1 <= $num++; #only first Services section
      
      next if /^====/ || /^\s*$/;  #if you don't want these
      print "$_";      
   }
}

=prints
blah
glah
sfsd
asfsdf
afsafdf
=cut