On Fri, 21 Mar 2003, Jim Flanagan wrote:
> @array = $string =~ /([^,],)/g;
>
> Should get you what you want (in this particular case).
I omitted a crucial element: It should be
@array = $string =~ /([^,]+,)/g;
(In case you have "abc,123,def,");
--
::jimfl
http://jimfl.tensegrity.net
mailto:jimfl%40t%65ns%65gr%69ty.n%65t