~linux> perl -ne 'if(m/((FINDINGS|COMPLICATIONS):(.*?)([A-Z]+))/sgm){print qq|$2$3\t$4\n|};' foo7.txt