Probably not the best way to do it, but this works:

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

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

Gets rid of the loop, at least *grin*.