no warnings;
$^W=0;

open my $in, $ARGV[0] or die "Couldn't open $ARGV[0]:$!";

my ($buffer, %h) = ''; keys %h = 1024*500;

while (sysread($in, $buffer, 16384, length $buffer)) {
	$h{$1}++ while $buffer =~ m[^(?:.+?\|){9}([^|]+)\|]mg;
	$buffer = substr($buffer, rindex($buffer, "\n"));
}

print scalar keys %h;