my $cut = 0;
my $res;
foreach (@f) {
    if (/\#domain:start/) {
        $cut = 1;
    }
    if (/\#domain:end/) {
        $cut = 0;
    }
    if {!$cut} {
       push(@res, $_}
    }
}