print my $out = join '', map {sprintf '%07b', ord} split //, '4B';