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