if ((my $index = index $string, $key) >= 0) {
    ...
}