....
.....

while(<IN>)
{
undef ($/);
$string=$_;
$string =~m/(FINDINGS|COMPLICATIONS|(:)(.*?)(^[A-Z])/sgm; 

print "processing $file\n";
print OUT "$1$2\t$3";
}exit;

....
......