perl: Unify print style