my $count =()= 'abrabrabrabra' =~ /b(?=rabra)/g;