What have you tried so far, apart from this awk command? It's quite difficult to understand what you are trying to do...

Show some code and explain where it fails and you will get help. If you don't know that already, you can and should use Text::CSV to parse the file.