rindex

rindexは、指定された文字列の中で、指定された部分文字列があった場合に、最後に見つかった場所の位置(前から数えて)を返す。

rindex関数 - 文字列 - Perl関数のリファレンス

3番目の検索終了位置がわかりにくいけど、

として実行すると、

$ vi rindex.pl 
$ perl rindex.pl 
13
13
8
2
-1
$ 

$i1は、0から数えて13番目に、最後の"ABC"。
$i2は、13番目から始まる探索で終了なので、最後に見つかるカタチになる。
$i3は、そもそも12番目で探索を終了してしまうので、13番目より前の、8番目の"ABC"を最後とする。
$i4は、ここからは対象文字列を"CD"とし、複数は無いパターンに変えていて、2番目なら見つかるので2。
$i5は、1番目で終わってしまうので、そうすると見つからなかったということになるので、-1を返す。

Sample/perl/rindex/rindex/src/rindex at master · bg1bgst333/Sample · GitHub