$s = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyRRRyyyy\n" x 300;
$n = 0;
$n++ while ($s =~ /(.*?)RRRR/isg);
print "$n matches\n";