[Wlug] Perl puzzle