($word) = $word =~ /^(\w+)$/ or die 'Bad User!';