$_='this is some text(55). this is another text. there are 2 texts.';
@re=/text(?{$cnt1++})|\d+(?{$cnt2++})/g;
print "'text' occured $cnt1 times\n";
print "'\\d+' occured $cnt2 times\n";