index

index( 検索対象の文字列 , 検索する文字 )

#!/usr/bin/perl

$num = "1234567890";
$four = index( $num , '4' );
$a = index( $num , 'a' );

print "Content-type:text/html\n\n";

print "文字列 = $num<br>";
print "４の位置(0オリジン) = $four<br>";
print "ａの位置(0オリジン) = $a<br>";

●出力結果
文字列 = 1234567890
４の位置(0オリジン) = 3
ａの位置(0オリジン) = -1

最初の文字位置を0からカウントされます。
見たまんまです。
見つからない文字の場合は-1が返されます。

rindexにすると最後尾からの検索になります。