разбор строки на Perl

#!/usr/bin/perl

$s = 'abc,"def","g,h,i",j k l,\'mno\'';
print "$s\n";
@m=();
while($s) {
last unless $s =~ s/((\"?).*?\2),(.*)/\3/;
push @m, $1;
}
push @m, $s;
print "[" . join(", ", @m) . "]\n";

Во, спасибо.
Правда единственный глюк, который может возникнуть,
это когда будет разбираться строка:
asd,asd,asd,"asd,asd"
Последний параметр в кавычках разобъется на 2:
"asd и asd"

Тогда, может так:

#!/usr/bin/perl

#$s = 'abc,"def","g,h,i",j k l,\'mno\'';
$s = 'asd,asd,asd,"asd, asd"';
print "$s\n";
@m=();
while($s) {
last unless $s =~ s/((\"?).*?\2),(.*)/\3/;
$ret = $1;
if ($ret =~ /^\".*[^\"]$/) {
$s = "$ret,$s";
last;
}
push @m, $ret;
}
push @m, $s;
print "[" . join(" | ", @m) . "]\n";

Установить модуль Text::CSV_XS из CPAN.

Спасибо за ответы.
Модуль посмотрю, но боюсь слишком жирно будет отдельный
модуль ставить для моей задачи.

Вот окончательный вариант, который у меня получился
(поддерживает одинарные и двойные кавычки, убирает
пробелы вокруг запятых):

#!/usr/bin/perl -w

#$s = 'abc," def","g,h,i",j k l,\'mno\'';
$s = 'asd , asd , \'asd \' ," asd,asd"';
print "$s\n";
@m=();
while($s) {
last unless $s =~ s/^\s*(["']?)(.*?)\1\s*(,|$)//;
push @m, $2;
}
print "[" . join("|", @m) . "]\n";