初めてのPerl 4章　練習問題3, 4, 5