refine perl mode.