my $foo = () = split(/,/, $bar, -1)