say join ",", "hostname", $user =~ /^([^:]+)/gm;