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