(undef, $userid) = split "/", .... #### (undef, $userid) = split "/|\\\\", $ENV{REMOTE_USER}; #### $username =~ m#(cyc)/|\\(.*)#;
## (undef, $userid) = split "/|\\\\", $ENV{REMOTE_USER}; ##
## $username =~ m#(cyc)/|\\(.*)#;