use strict;

my $file;
open(DATA,"<data.txt") || die "Unable to open file 'data.txt':  $!\n";
{
  local $/;
  $file = <DATA>;
}
close(DATA);
my ($selection) = ($file =~ m/^.+?Services.+?[=]+(.+?)[=]+/is);
my (@lines) = split /\n/,$selection;
for (my $i=0;$i<=$#lines;$i++) {
  $lines[$i] =~ s/\n//;
  print "Line $i:  $lines[$i]\n";
}

##</code><code>##

Line 0:
Line 1:  blah
Line 2:  glah
Line 3:  sfsd
Line 4:
Line 5:
Line 6:  asfsdf
Line 7:  afsafdf