Hello and welcome to the monastery!

We can only help you with your program if you show us what code you have already written and if you tell us where exactly you have problems. As your request looks as if you are basically manipulating a pipe-delimited file, maybe just using Text::xSV is the easiest way, but it's hard to tell without seeing your code.