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