#!perl -p
s/./sprintf"%.4b",$&+3/eg