[MacPerl] How to parse quoted text? (fwd)

[mark@cheers.jsc.nasa.gov (Mark Manning/Metrica)]

According to Louis Chretien:
<snip>
> add telecom "856473" "Louis Chretien" "" "Administrator"

How about:

	$theLine = <STDIN>;
	@newLine = split( /" "/, $theLine );
	@line_2 = split( / /, $newLine[0] );

The first line splits things based upon the fact that each
string is separated by one space and the second one splits
up the "add telecom " part.  Have fun.  :-)

Remember : Use a pattern Luke - use a pattern.
(I think I've seen too much Star Wars.  ;-) )