perl mode