perl: Fix whitespace