CODE EXAMPLE FOR PERL

split perl

# using split() function
my @spl = split(', ', $str);