Perl wyszukiwanie, jeśli zmienna zawiera słowo
if (index($str, $substr) != -1) {
print "$str contains $substr\n";
}
Prickly Panther
if (index($str, $substr) != -1) {
print "$str contains $substr\n";
}