option explicit
dim x()
x = split("john,biran,someone",",")
response.write(x(0) & x(2))

##</code><code>##

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);
}

##</code><code>##

$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);
}