$n++ while $str=~/this/g;

$str =~ /this(?{$n++})(*F)/;