10     $string =~ s/ *([@\/]) */$1/g;
 11     my ($userid, $diag, $password, $netServiceName) = $string =~ /'?([^@\/']+)?(?:(\/)'?([^@\/']*)'?)?(@[^@\/']+)?'?/;