Perl (Mini-)Golf problems seem perfectly suitable: they're non-trivial, but you can surely afford them with a solution under 50 LOCs :) Of course, there still remains the problem of analysing the different "editions" to find one that best matches the final goal you propose (i.e. Perl idioms exercising), but I've to pass to the seasoned programmers here.