Perl helps private investigators bring criminals to justice.

I was sitting in a bar, wearing my “I know regular expressions” xkcd t-shirt, and a guy walked up to me and slapped me on the shoulder.
“Perl! Where did you get that shirt? Talk about the story of my life. A steroid dealer who had several NFL players on his frequent buyer program found out that his girl-friend was tipping off police, so he murdered her and then killed himself. The girls family hired us to go over 80GB of data to find out if there was evidence to support a wrongful death lawsuit.“

And they use Perl to grep through all this data!

Hmmmm. I guess I shouldn’t be so excited about that. It’s still cool, though.