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