better perl mode