perl -ibkup -ne '{ s/192.168.10.55/db1.abc.com/g; print "$_\n";}' tnsnames.ora