if (my $index = index $string, $key) {
    # yadda
}