print("IPADDR=$ip\n");
while (<$fh_in>) {
    print $fh_out $_ if !/^IPADDR=/;
}