#! /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 unless -f $file; 
    
    #next if $file eq '.' or $file eq '..';   
          
    open my $file_handle, "/dwimperl/perl/1993/$file" or die "failed to open '$file' <$!>";
        
        while (my $line = <$file>) {     
   
        my $clean_text = $hs->parse( '  ' );
        
        print $write_dir "$file\n";
        
       $hs->eof;
   
   } 
           
    }

 

close();

closedir $dir_handle;