How to tell if a character is in a string in perl code example

Example: Perl search if variable contains word

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