How about something like this:

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