sub IsMember { return $_[0] =~ m/age|old|years/; }