puzzling in Perl

I'm a fan of puzzles, but I have little patience for my meat-brain.