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

##</code><code>##

my $foo = ($bar =~ /,/) + 1;

##</code><code>##

my $foo = defined($bar) && length($bar) && (($bar =~ /,/) + 1);