Fix perl snippets