Help for this page
my $vord = "Something Very Long"; my $nick = "Very";
if ( $vord =~ m/\Q$nick\E/i ) { ... }