[perl] regular expression chapt 2