my $found = 0;
while (<$fh_in>) {
    ++$found if s/^IPADDR=.*/IPADDR=$ip/;
    print $fh_out $_;
}

print("IPADDR=$ip\n") if !$found;