$word = m/([\p{Letter}\p{Number}]+)/;