my ( $key, $val ) = /^(\d+)\s+([\w-]+)/;
   ...
    my $pattern = quotemeta "\b([$cc]{$min,$max})\b/";