$domain = 'domain.net';
open(F, '< /usr/local/cpanel/text.txt') or die($!);
my @F = <F>;
close(F);
        foreach (@F) {
            if (/\#$domain:start/i)
            {
                #do {                #das funzt nicht... leider 
                #        $line .= ''; #next schneidet nur erste Zeile.
                #} while ($_ !~ /\#$domain:end/i);
            }
                $line .= $_;
        }
print $line;