use strict;
use warnings;
use Benchmark qw/ cmpthese /;

my $R = 'R' x 10;
my $Q = 'Q' x 10;

use re 'debug';

sub foo {
    my $c = shift;

    pos $$c = 0;
    while ( 1 ) {
        next if $$c =~ /\G\d+R/;
        last unless $$c =~ /\w/g;
    }
}

print "-" x 80, "\n";
foo( \$Q );
print "-" x 80, "\n";
foo( \$R );
print "-" x 80, "\n";