thanks but your perl code does not work on this file. It prints the whole file, I'm only able to get it to work in sed