Select Code to Download

#!/usr/bin/perl
use strict;
use Text::CSV;

my $input="input.csv";
my $output="output.txt";
...
open(INFILE,$input) || die "Can't open file $input";
open(OUTFILE,">$output") || die "Can't open file $output";
open(TRASH,">$trash") || die "Can't open file $trash";

while (<INFILE>) {
if (/"X"/) {   #The trash data has these 3 characters in it
...
  }
}
}

close INFILE;
close OUTFILE;
close TRASH;

unlink $trash;