$data =~ /^\d+STRUCT/g or "warn: gang aft agley";
while ($data =~ /\d+STRUCT/g) {
   # process match
}