take that perl