$str =~ s/(.{16})(?!\Z)/$1 /g ;

##</code><code>##

  $str =~ s/(\w{16}(?=\w)/$1 /g ;