$word =~ s/(?:^\W+)|(?:\W+$)//g;