Select Code to Download

use 5.18.2;
use warnings;
...
         $_{A} =~ m/^(?:6767|9898|5656)$/ && $_{D} =~ m/90 09/ and $_{
+G} = "AA";
         },
     );

A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R
1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h
...
3131,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R
6767,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R
6767,B,C,D09 09D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R

ERROR,A,B,C,D,E,F,G,H,I,J,K,L,M,N,BC,P,Q,R
ERROR,2323,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R
...
ba,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R
6767,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R
6767,B,C,"D09 09D",E,F,G,H,I,J,K,L,M,N,O,P,Q,R