if (uc $vord eq uc $nick) { ... }

##</code><code>##

if ($vord =~ /^\Q$nick\E$/i) {
...
}