http://www.perlmonks.org?node_id=1046570


in reply to In-place bitwise NOT?

Probably not fast enough: 
$bits =~ s/(.)/~$1/ges;

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom