$_='abcabbcabbbbcabcabbcab';
my $n = 3;         ## Find the $nth occurrence
my $pat = qr/ab+/; ## of this pattern
my ($NthMatch) = /(?:.*?($pat)){$n}/;
print "Match #$n looks like $NthMatch\n";