s/([A-Z0-9]{5,})/$seenit{$1}++ or print "$1\n"/egi while <>;