Hi sunglant,

If I can figure out how to get double quotes at the begining and end of each line, then when its formated it can be converted into a CSV file and imported into a DB.

I really don't know why you are trying to code in sed and awk using perl.
Since perl can do want you want why not write all your script in perl altogether? Then using a module like Text::CSV or Text::CSV_XS you can get your dataset in csv then getting all of that into your preferred DB still using perl.