Re: String replacement

[Tanalis]

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;

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