my $string = 'string here';
my $index = index $string, 'bah';
print $index if $index;

##</code><code>##

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