my @char = $spelling =~ m/(\P{M}\p{M}*)/g;