chomp(my @data = <DATA>);
while (my $confLine = <$in>) {
    if ($confLine =~ /ip4-address address="/) { # No need to backslash ".
        for my $ip (@data) {
            if ($confLine =~ /ip4-address address="\Q$ip/) {
                $confLine =~ s{/>}{update"/>};
            }
        }
    }
    print {$out} $confLine;
}