#ex_07-1a #Learning Perl Appendix A, Exercise 7.1a 1. /a+b*/