my $bar = (split /,/, $foo, 2)[0];