perl -ple'(/[^.-\s]/)?(s.[^a-z0-9\s].$_=unpack"B*",$&;y;01;\n`;;lc.ge,y.
`-z0-9.ajzges}mqo{hrkxypibuw|vntfdc@PX\\^_OGCA.,s-\S-(unpack"B*",$&)." "
-ge,s-\b01+0--g,y,01,-.,):(y,-.,01,,s,([01]+),0 .1x(6-length$1).0 .$1,ge
,s-\b([01]+) ?-pack"B*",$1-ge,y.ajzges}mqo{hrkxypibuw|vntfdc@PX\\^_OGCA.
`-z0-9.,s-([\n`]{8})-$_=$1;y;\n`;01;;pack"B*",$_-ge)'&& You fit it in 4