only leave perl snippet