Barista
Coding for fun not profit.
#!/d/perl/bin/perl.exe
# (void*)
# If I ever own a cafe it will be called
# 0xBADDECAF or just 0xCAFE, but what else could it be?
while (<>) {
my @words = split;
foreach my $word (@words) {
next if $word =~ /[^a-fA-F]/;
next if $seen{$word};
$seen{