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";
}