#!perl -p
s/./!printf"%04b",$&+3/ge