$line =~ s/[^AB|CD]//g;