open my $FH_IN, '<',$files_dir.'/'.$filename or die "Can't open $filename <:$!>";
    use Cwd; print getcwd(), "\n";

    $/="</DOCUMENT>";

    while (my $doc = <$FH_IN>) {

       if ($doc =~ m/^\s*<FILENAME>\s*(.*)(ex21)\s*(.*)(<\/TEXT)\s*(.*)/igm    ||
           $doc =~ m/^\s*<FILENAME>\s*(.*)(EX\-21)\s*(.*)(<\/TEXT)\s*(.*)/igm )
            {
           $htm=join('',$1);
            print $htm;
            print $FH_OUT "$htm\n";
        }
    }
    close $FH_IN;
}
close($FH_OUT);