Select Code to Download

foreach my $col ( @cols ) {
    if ( $titles !~ /\Q$col/ )
        say "ERROR: NOCOL $col";
    }
}