$ perl -E '$word = "layer123 $-.% foo"; $new_word = join "", map { $_ =~ /[a-zA-Z]/ ? "[$_]" : $_ } split "", $word; say $new_word;'
[l][a][y][e][r]123 0.% [f][o][o]