s/.\K/\x01/sg; # 5.010+ [download]
s/(?<=.)/\x01/sg; # 5.006+ [download]
In reply to Re: Interleaving bytes in a string quickly by ikegami in thread Interleaving bytes in a string quickly by BrowserUk