Select Code to Download

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

use strict;
my (@x);
...
    $delimiter = quotemeta($delimiter);
    return split(/$delimiter/, $string);
}

$x = b_split('john,biran,someone',',');
print($x[0]; . $x[2]);
...
    $delimiter = quotemeta($delimiter);
    return split(/$delimiter/, $string);
}