What if the word isn't 51 characters long, but 101? Or 300? or 314159? Your code would break it into a word 50 chars long, then a hyphen, then the rest of the long string.

When I first looked at this problem, I though inserting the hyphen would be the easiest solution. After I started working it out, I think its actually the hardest.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated