(undef, $userid) = split "/", ....

##</code><code>##

(undef, $userid) = split "/|\\\\", $ENV{REMOTE_USER}; 

##</code><code>##

$username =~ m#(cyc)/|\\(.*)#;