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

##</code><code>##

>allon<
>native<
><
>"<