my $vord = "Something Very Long";
  my $nick = "Very";

##</code><code>##

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