my $str = 'this is some text';
print index $str, 'o';
__END__
9