$string =~ s|(.{0,49}[^\s])\s+|$1<br /><br />|g;