I won't give you examples, just an advice that may or may not work. You probably already know how to do these things with awk. Write an awk script and translate it to perl with a2p. A2p is not failproof but it will work in these simple cases I belive.