my $word = 'layer';
my $new_word = join '', map { "[$_]" } split '', $word;

# Or, if I want to be more explicit about the process:
# my @raw_chars = split '', $word;
# my @cooked_chars = map { "[$_]" } @raw_chars;
# my $new_word = join '', @cooked_chars;