Perl Weekly Challenge
