my $common = pop @s;
$common =~ s/[^\Q$_\E]//g for @s;