“Búsqueda de perl si la variable contiene palabras” Código de respuesta

Búsqueda de perl si la variable contiene palabras

if (index($str, $substr) != -1) {
    print "$str contains $substr\n";
}