Refactoring Perl. Arrgghhhh …