/challenge-345/tim-potapov/perl/