I'd think pack() is not suited for this. I would use a module like Text::Wrap and print()/printf().