my @comma_groups = split /,/;
my @scolon_groups = split /;\s*/, $comma_groups[1];