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

##</code><code>##

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