Look at Damian Conway's Text::Autoformat It probably does what you want, or Text::Wrapper

Update The regexps work... the modules are a little more robust...

                - Ant