Поиск Perl, если переменная содержит слово
if (index($str, $substr) != -1) {
print "$str contains $substr\n";
}
Prickly Panther
if (index($str, $substr) != -1) {
print "$str contains $substr\n";
}