$currentword =~ /^([\w]+)$/;