add perl mode