while(<DATA>) {
    $seen{$1}++ while /(\w+)/g;
}
print scalar(keys %seen);