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