Perl Solution for Challenge 6