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