c:\@Work\Perl>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my $qr_string = q((?:(\w)\W{2}(\w))*);
 my $qr = qr[$qr_string+];
 ;;
 my $s = '%%%%';
 print 'MATCH!!!' if $s =~ /$qr/g;
 dd \@-;
 ;;
 my @captures = $s =~ /$qr/g;
 dd \@captures;
"
MATCH!!!
[0]

[undef, undef, undef, undef, undef, undef, undef, undef]