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