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