open(E,shift @ARGV) or die($!); chomp(@e=<E>); close(E);
undef $/; $t=<>;
printf("%-20s : %3d\n", "Words:" ,scalar split(' ',$t));
printf("%-20s : %3d\n ", $_, scalar(@a=($t =~ m/$_/mgi)))
for @e;