while (<FILE>) { $found = 1 if /^\Q$name\|/i }