If there's some character you can guarantee is not in the strings (so that you can use as a separator — I chose space), you could do

my @common = (join ' ', @s) =~ /(.)(?=(?:.* .*\1){$#s})/g;
[download]

Not really elegant; I just thought it was a nifty one-liner.