Right now, I do QA. In two weeks, I start a dba job. I use perl to cull things from databases in "interesting" ways and to do one-off type resolutions for production issues. For instance, the other day, the project manager for implementing a product that I have nothing to do with came to me and asked if I could clean some bad XML that was being sent from an HP-UX server. About 50 lines later, done. The majority of that was dealing with corner cases; the main algorithm was about 10 lines. That's why I love perl...I can do relatively difficult things in a short amount of time and space.
The only easy day was yesterday