Select Code to Download

use strict;
use warnings;
...
@m = $dat =~ /STRUCT/g;
shift (@m);
foreach (@m) {print "$_\n"};

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