my $a = "ABABA";
my $b = "BB--B-BB";
my $new = $b;
my $a_pos = 0;
$new =~ s:[^-]:substr($a, $a_pos++, 1):ge;
print "New is $new\n";