Use foldPerlAST.