my $word = 'cat';
my $mask = '___';
my $guess = 'c';

substr($mask, 0,1) = $guess;

print $mask;