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 '{line=$1;print line;while(match(line,"I")>0){if(RSTART>1){line=substr(line,RSTART);print line;}else line=substr(line,2);}}'