@m = $dat =~ /(.*?)(?:STRUCT|$)/g;
shift (@m);
shift (@m);
foreach (@m) {print "$_\n"};

@m = split(/STRUCT/, $dat);
shift(@m);
shift(@m);
foreach (@m) {print "$_\n"};