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

##</code><code>##

SYS / foo_pw @ stuff
SYS / ' foo_pw1' @ stuff
SYS /' foo_pw2' @ stuff
SYS / foo sp ace @ stuff
SYS/change_on_install@prod1
LAST
rman/rman@rcat
SYS
/
/fooey
/fooey@foobar
SYS@foobar
'simple/fooey@foobar'

##</code><code>##

<     SYS> <     /foo_pw> [  @stuff]
<     SYS> <   / foo_pw1> [  @stuff]
<     SYS> <   / foo_pw2> [  @stuff]
<     SYS> < /foo sp ace> [  @stuff]
<     SYS> </change_on_i> [  @prod1]
<    LAST> <            > [        ]
<    rman> <       /rman> [   @rcat]
<     SYS> <            > [        ]
<        > <           /> [        ]
<        > <      /fooey> [        ]
<        > <      /fooey> [ @foobar]
<     SYS> <            > [ @foobar]
<  simple> <      /fooey> [ @foobar]