my %counts;
my @commons = grep { ++$counts{$_} == @s }
              map { my %seen; $seen{$_}++ for /./sg; keys %seen } @s;

##</code><code>##

use List::MoreUtils qw( uniq );
my %counts;
my @commons = grep { ++$counts{$_} == @s } map { uniq /./sg } @s;