For all of my perl fun