better perl golf