get~~/\s.+/;$!=+<<words;say first $/>=*,map (*X<=@$!).sum,^401