my $un = shift;
unless( $un ~= s/\A([_A-Za-z][_A-Za-z0-9]+)\Z/$1/ ){
 # Log/Warn(L4/5); #?
 exit &ask_user_to_resubmit_request; 
}
$un = lc($un);
...
unless($<){..}