>perl -wMstrict -le
"my $c   = 'A';
 my $min = 3;
 ;;
 my $s = 'uuAvvAAwwAAAxxAAAAyy';
 ;;
 printf qq{'$1' } while $s =~ m{ ([[:lower:]] (?:$c){$min,} [[:lower:]]) }xmsg;
"
'wAAAx' 'xAAAAy'

##</code><code>##

>perl -wMstrict -le
"my $c   = 'A';
 my $min = 3;
 $_ = 'AAAAAA';
 print 'match' if /($c\{$min,})/;
 print qq{'$1'};
"
Use of uninitialized value $1 in concatenation (.) or string at -e line 1.
''

##</code><code>##

>perl -wMstrict -le
"use constant MIN => 3;
 my $c = 'A';
 ;;
 my $s = 'uuAvvAAwwAAAxxAAAAyy';
 ;;
 printf qq{'$1' }
   while $s =~ m{ ([[:lower:]] (?:$c){${ \MIN },} [[:lower:]]) }xmsg;
"
'wAAAx' 'xAAAAy'