use strict;
use warnings;

setpriority(0, 0, 19);

my ($dir, $forbidden_str, $in_file, @modules, $module_str, $out_file);

$dir = "$ENV{HOME}/lib/Workflow";
$in_file = "$dir/DEBUG.txt";
$out_file = "$dir/FILTERED.txt";

opendir(DIR, $dir);

foreach my $file (readdir(DIR)) {
  if ($file =~ /^(\w+)\.pm$/) {
    push (@modules, $1);
  }
}

closedir(DIR);

$forbidden_str = 'BEGIN|DESTROY|AUTOLOAD';
$module_str = join('|', @modules);

open(IN, $in_file);
open(OUT, ">$out_file");

while(<IN>) {
  if ($_ =~ $module_str && $_ !~ /$forbidden_str/) {
    print(OUT $_);
  }

}

close(IN);
close(OUT);