my $word="cacao";
my @word=split ('',$word);
my @string=('_') x scalar @word;
my $char="c";
map { $string[$_] = $char if $word[$_] eq $char } 0..$#word;
print @string;