Some new exercise scripts of "Learning Perl"