Select Code to Download

sub break_word {
   my $str = shift;
...

# search for all words longer than 30 characters:
s/(\S{31,})/ break_word($1) /eg;