env LC_COLLATE=C awk '{line=$1;while(match(line,/[A-Z][a-zI]+/)>0){print substr(line,RSTART,RLENGTH);line=substr(line,RLENGTH+1);}}'|awk '{for(i=1;i<=length($1);i++){for(j=i+4;j<=length($1);j++){print substr($1,i,j-i+1);}}}'|grep '^[A-Z]'