Select Code to Download

sub CommonChars {
    my $comm = shift @_;
...
    my %seen;
    return grep !$seen{$_}++, $comm =~ /(.)/gs;
}