while read ip;do perl -pi -e "s/^#?/#/ if /\b$ip\b/" script_file; done < ip_addr_file