while (my $domainline = <DOMAINS>) {
        chomp $domainline;
        $cleanedDomain = quotemeta $domainline;