perl -ne '$seen{$_}= " " x (@ARGV+1) if (not exists $seen{$_}); substr($seen{$_},@ARGV,1)="1"; if (@ARGV==0 and $seen{$_}=~ /^1+$/) { print; $seen{$_}.="x"}' FILES ...