if ($list =~ /\Q$link\E/i)