perl: prevent word wrap in code snippets