#ex_07-1c #Learning Perl Appendix A, Exercise 7.1c /($whatever){3}/