if ($file =~ $spec_text){
	my $file_date = (split(/\./,$file))[3];
	open(IN, '<', $file) or die("open failed: $!");
	my $count_uniq = 0;
	my %seen;
	while (<IN>) {
		chomp;
		my ($ele0, $ele1, undef) = split ';', $_, 3;
		$count_uniq++ if !$seen{"$ele0;$ele1;$file_date"}++;
	}
	print "$.\n"; # Total number of lines.
	print "$count_uniq\n";
	close(IN);
}