use strict;
my (@x);
@x = b_split('john,biran,someone',',');
$response->write(@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);
}