foreach (@SetBCs) { 
    my $command = qx(sed -n "/Sets/,/Rules/p" $_);
    print $command;
}