#ex_07-1d #Learning Perl, Appendix A, Exercise 7.1d /[\000-\377]{5}/