Perl saves me countless hours at work. Here are some short examples (no code, sorry, because I am still learning and it would probably make you shoot yourself in some cases :) )

1) I wrote a small program to provision cable modems. What used to take a full day to do by hand, can now be accomplished in just under 10 minutes :)

2) We use RT for our ticketing system. Unfortunately it doesn't provide enough information to our after-hours support team in any meaningful way. I used perl to modify the way information is displayed in a given ticket. It queries our CMTS and displays IP information, CM Information such as upstream/downstream power, et al. and allows our unprivileged technicians the ability to access user email via the webmail interface without knowing the users password, though our privileged users can see the password as well.

3) Used Perl and Mason to create an installation system for technicians in the field. They take a cable modem to a customers house fill out some basic information and it provisions the modem for the customer. I am currently working on version 2.0 of this that will make it even less work for the technicians.

4) Created some simple scripts that will query each of our mail servers for a given date and piece of information we are looking for and then return it all to the current shell for further investigation.

5) I created a system that monitors our Cable modem system showing uptime, downtime, signal to noise ratio and % of modems online on a given node and stores it all in a mysql database in 5 minute intervals.

There are dozens of other little tools that I have created that save us time as well, but those are some of the cooler ones :)

I estimate I have saved thousands of man-hours over the course of my employment so far :) let's hope I get a nice raise soon ^^