#use strict;

my $file = "g:/dbf2csv/reg501.csv";

# Slurp File Contents
open(FILE, $file) or die "Can't open $file: $!";

#my $data = do {local $/; <FILE>};
my $newdeli = do {~s/\"//g; <FILE>};
close(FILE);