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