Clean up perl a little