Help for this page
perl -ibkup -ne '{ s/192.168.10.55/db1.abc.com/g; print "$_\n";}' tnsn +ames.ora
ssh -lroot somehost "perl -ibkup -ne '{ s/192.168.10.55/db1.abc.com/g; + print \"$_\n\";}' tnsnames.ora"