>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.
''