regex - Perlで単一文字列の一致した正規表現の位置を見つけるにはどうすればよいですか?

Question

たとえばmy $string = "XXXXXTPXXXXTPXXXXTP"; 、match: を複数回実行し、それぞれの位置を返したい場合$string =~ /TP/;、どうすればよいでしょうか?

を試しましたが$-[0]、の位置しか得られません。$-[1]$-[2]$-[0]

編集:グローバル修飾子も試しましたが、//gまだ機能しません。