perl -ne 'BEGIN{$count = @ARGV}; $seen{$_}{$ARGV}=1; END{while( ($line, $by_whom) = each %seen){ print $line if $count == keys %$by_whom}} '