|value 1|value two|"|Value 3 was "NULL"|2001/06/06|

##</code><code>##

perl -pi.bak -e "s/\|\"\|/\|\|/g" filename

##</code><code>##

open OUTFILE, ">>@ARGV[0].dat";
while (<>) {
	$_ =~ s/\|\"\|/\|\|/g;
	print OUTFILE $_;
}
close OUTFILE;

##</code><code>##

while (<>) {
    split /\|/;
    my $output = "|";
    foreach my $value (@_) {
        if ($value =~ m/"{1}/) {  
            $value =~ s/"//g;
        }
        $output =. $value . "|";
    }
    print $output;
}