#!/usr/bin/perl
use strict;
use warnings;

open my $FHIN, '<', $ARGV[0];

open my $FHOUT, '>', "$ARGV[0].new";
open my $DELLIST, '>', "ARGV[0].deleted";

foreach (<$FHIN>){
    $_ =~ s/\"//g;
    $_ =~ m/(.*?),/i;
    my $tmp = $1;

    open my $SCRATCH, '<', "./scratch.pad";
    open my $TMPOUT, '>', "./tmp.out";
    foreach (<$SCRATCH>){
        $_ = m/$tmp/ ? print $DELLIST $_ : print $TMPOUT $_;
    }
    close $SCRATCH, $TMPOUT;
    cp ($TMPOUT, $SCRATCH);

}

##</code><code>##

Filehandle $TMPOUT opened only for output at /usr/share/perl/5.10/File/Copy.pm line 200.
stat() on closed filehandle $SCRATCH at /usr/share/perl/5.10/File/Copy.pm line 117.

##</code><code>##

$_ =~ s/[-|\&|_|+|']/ /g;

##</code><code>##

$_ =~ s/[-|\&|_|+|']/ /g;

##</code><code>##

<c>
$_ =~ s/\W/ /g;