#!/usr/bin/perl
use strict;
use warnings;
my $indir;
my $file;
my $new;
my $string;
my $outdir;

$indir = 'C:/input';
$outdir ='C:/output';
if(-d $indir)
{
opendir(DIR, $indir) or die "can't open $!";
}
while ($file=readdir(DIR))
{
my $fullpath=$indir.'/'.$file;

open IN, "$indir/$file";
$new= "$outdir/$file";
open OUT, ">$new";

while(<IN>)
{
undef ($/);
$string=$_;
while ($string =~m/(FINDINGS|COMPLICATIONS)(:)(.*?)(^[A-Z])/sgm)
{
print "processing $file\n";
print OUT "$1$2\t$3";
}
}
close IN;
close OUT;
}
closedir(DIR);
exit;