$old =~ s/\Q$old_ip\s+/$new_ip /;
    print OUT $old;