sub CommonChars {
    my $comm = shift @_;
    $comm =~ s/[^\Q$_\E]//g    for  @_;
    my %seen;
    return grep !$seen{$_}++, $comm =~ /(.)/gs;
}