Select Code to Download

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

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