It appears you're watching to see if two variables contain the same data (ignoring case).

However if you want to see if one variable contains the value of another variable e.g.

  my $vord = "Something Very Long";
  my $nick = "Very";
[download]

..then you probably don't want the anchors in your regular expression..e.g.

  if ( $vord =~ m/\Q$nick\E/i ) {
     ...
  }
[download]