error() unless $username =~ m< ^ \w+ \z >x;