Help for this page

Select Code to Download

Select or download this

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