Select Code to Download

#!/usr/bin/perl -w
use strict;
...
 ADUAKA, YYYYYYYY  5555 A-52             BEATTY, YY        5555 4832  
+ TAG     
 AHMED, YYYYYY     5555 C-63             BECHTLE, YYYY     5555 D-26  
+         
 AHMED, C. YYYYYY  5555 D-69   SOMEU     BEDOYA, YYYYYYYY  5555       
+ CE

(BASILE), ( YYYY) (5555) (1H08) (IAMG)
(ABEND), ( YYYYYY) (5555) (2014) (CE)
...
(E), ( YYYY) (5555) (D-26) ()
(AHMED), ( C. YYYYYY) (5555) (D-69) (SOMEU)
(BEDOYA), ( YYYYYYYY) (5555) (CE) ()