my $foo = split (/,/, $bar);