perl -pe /print/ ip_addr_file

##</code><code>##

perl -pi -e s/^/#/ if /66.11.10.20/' script_file

##</code><code>##

perl -pi -e "s/^/#/ if /`perl -pe /print/ ip_addr_file` /" script_file

##</code><code>##

:g/XXX/s/^\([^ ]*\) \([^ ]*\) \([^ ]*\) \([^ ]*\)/\1 \4 \3 \2/