Select Code to Download

my ($test, $id, $key)=split /,\s*|\(/, $_, 4;
next unless $test=/PROBABLECAUSE\w*/;

#!/use/your/bin/perl -w
use strict;
...
}
print "keys with initial caps\n" if @capkeys;
foreach (@capkeys) {print}

    my ($test, $id, undef, $key)=split /,\s*|\(/, $_, 5;
    next unless $test=/PROBABLECAUSE\w*/;

#!/your/perl -w
use strict;
...
    }
    $line_count++;
}