/challenge-343/tim-potapov/perl/