sorry mate...I didn't know you wanted it in one line..
there you go
$string = qq["08/26/2008","0.000000","4.000000","332.000000"];
@columns = map { s/^"//; $_ } map { s/"$//; $_ } split ',', $string;
``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI