"The Damian" has already solved this in Text::Autoformat. I suggest stealing ideas and/or code from there.

-- Randal L. Schwartz, Perl hacker