print if /...(...).../ && $seen{$1}++;