How can I find position of matched regex of a single string in Perl? -

this question has answer here:

• how can find location of regex match in perl? 5 answers

let's my $string = "xxxxxtpxxxxtpxxxxtp"; if want match: $string =~ /tp/; multiple times , return position each, how so?

i have tried$-[0], $-[1], $-[2] position $-[0].

edit: have tried global modifier //g , still not work.

$-[1] position of text captured first capture. pattern has no captures.

by calling //g in scalar context, next match found, allowing grab position of match. until you've found matches.

while ($string =~ /tp/g) {    $-[0]; } 

of course, store them in variable.

my @positions; while ($string =~ /tp/g) {    push @positions, $-[0]; }