in reply to Re: Find characters in ALL strings
in thread Find characters in ALL strings

Nice! You should probably use quotemeta in case the strings contain special characters. 
my $common = pop @s;
$common =~ s/[^\Q$_\E]//g for @s;

[download]

In Section Seekers of Perl Wisdom