#! /usr/bin/perl -w
use strict;
use warnings;
use lib "c:/strawberry/perl/site/lib";
use HTML::Strip;

my $hs = HTML::Strip->new();

my $write_dir = 'G:\research\sec filings 10k and 10Q\data\filing docs\1993\Clean';
 
my $files_dir  = 'C:\Dwimperl\Perl\1993';
 
opendir (my $dir_handle, $files_dir) || die "failed to open '$files_dir' <$!>"; 

while (my $file = readdir($dir_handle) )      { 
    next if $file eq '.' or $file eq '..';# or $file =~ /[0-9|-]+\.txt$/;     
               
    open my $file_handle, "/dwimperl/perl/1993/$file" or die "failed to open '$file' <$!>";
    
    foreach my $line (<$file>) {       
        
        my $clean_text = $hs->parse( '  ' );
        
        print $write_dir "$file\n";
        
        $hs->eof;
           
    }

} 

close();

closedir $dir_handle;