/challenge-306/tim-potapov/perl/