in reply to How to split a string into chunks of length n or less
$str =~ s/(.{16})/$1 /g; [download]
Well:
$str =~ s/(.{16})(?!\Z)/$1 /g ; [download]
$str =~ s/(\w{16}(?=\w)/$1 /g ; [download]