Modify perl snippets