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