That is true, my code was just meant to solve is state variable quandary.

Without thinking too deeply about it, your noted problem might be solved by simply adding some word boundaries:

    if (my @matched = grep {$line =~ /\b\Q$_\E\b/i} @users) {
[download]