$Text::Wrap::columns = '40'; print wrap("","",@CONTENT);