$new_word = join "", map { $_ =~ /[a-zA-Z]/ ? "[$_]" : $_ } split "", $word;