Select Code to Download

use strict;
use warnings;
...
  next if $_ !~ $regex;
  print;
}

__DATA__
====================================================================
...
Secondary Sector Information:
Slot 1:   Keep: 1   offset: 391   Strength: 27   Ref: no
Slot 2:   Keep: 1   offset: 325   Strength: 38   Ref: no

Primary (Reporting) Cp: 113  Set: 2 Car: 1  Ref: yes  Event:   9922
Primary (Reporting) Cp: 115  Set: 1 Car: 2  Ref: yes  Event:   9923