an option?

$_ = ';allon;native;;";';
print ">$1<\n" while(s/(?!^)([\w|"]*);//);
[download]

output

>allon<
>native<
><
>"<
[download]