Renumbered Perl solutions.