first draft of translation editor-perl