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

##</code><code>##

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

##</code><code>##

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