$found = scalar grep { /^\Q$name\|/i } <FILE>;