Here's my code if you want to take a look at it.

use File::Glob;

my @files = glob("C:/Wire/*.csv");

foreach my $x (@files) {      
    open FILE, $x;
while (<FILE>) {
    my @temp = split(/,/, $_);
    next if (substr($_,0,5) =~ /Debit/) ;
    print $_;}
}
[download]