Select Code to Download

my $data = '[-3|1|29x250+46+26|200+300+544|Get]' .
           '[-3|1|29x250+46+26|200+300+444|Get]' .
...
      substr($data, pos $data);
}
pos($data) = undef;

Found record: -3, 1, 29, 250, 46, 26, 200, 300, 544, Get
Found record: -3, 1, 29, 250, 46, 26, 200, 300, 444, Get
WARNING: Skipping invalid record: -3|1|29x250+34#$%#$INVALID4|Get
Found record: -3, 1, 29, 250, 46, 26, 200, 300, 244, Get
WARNING: Could not extract records from remaining input: [#$(GARBAGE