Select Code to Download

A[0]
C
D

A[0]
B
...
D[0]
D1
DA

#!/usr/local/bin/perl
use strict;
...
}
close($infile);
close($outfile);

Search pattern: ^(?:A\[0\]|C|D)[^a-zA-Z]*$
input : A[0]
...
input : D1
input : DA
output: DA