my $a = "ABABA";
my $b = "BB--B-BB";

$b =~ s/B/\%c/g;
printf $b, unpack 'c*', $a;