DB<108> $c="A";$min=3
 => 3

  DB<109> "AAAAA" =~ m/${c}{$min}/;  $&
 => "AAA"