/challenge-246/tim-potapov/perl/