Ну, вы можете реализовать Perl peek () с помощью Encack ('p', ...). Как только у вас есть это, есть только безопасность через безвестность.