#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @set;
while(<DATA>) {chomp; push @set, $_ if (/#domain:start/../#domain:end/)}
print Dumper \@set;
exit;

_ _DATA_ _
bla bla
bla
#domain:start
Hello
World
#domain:end
blub