{ my $c = my @c = split 'xxx', 'fred bill xx joe'; print $c };;
1
{ my $c = my @c = split 'xxx', 'fred bill xxx joe'; print $c };;
2