my ($userid, $password, $netServiceName) = /'?([^@\/']+)?(\/[^@\/']*)?(@[^@\/']+)?'?/;