s/(.{$len}[...

##</code><code>##

      ...])/$1<wbr>/mgi;