Lately I find it hard to be disciplined enough to learn something just for the sake of it so what I would do is find an interesting problem to solve and solve it in Perl. Repeat as necessary :-)