$x = b_split('john,biran,someone',',');
print($x->[0] . $x->[2]);

sub b_split {
    # not fully finished, needs $count and $compare
    my ($string, $delimiter, $count, $compare) = @_;
    $delimiter = quotemeta($delimiter);
    return [ split(/$delimiter/, $string) ];
}