my $unqchar5_regex = qr/^(?{%_=()})(?:(.)(?{$_{$1}++}))+
                         (?{warn Dumper \%_})
                         (??{warn scalar(keys %_)." $1\n";
                             (scalar(keys %_)<5)?~$1:''   })$/x;