Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    print "[$_] " foreach @items;
    print "\n";
}

__DATA__
BAZ 'N3''  N  0 ? ? ? 1
...
BCB C3B   C  0 ? ? ? 1
BCB C4B   C  0 ? ? ? 1
BCB CMB   C  0 ? ? ? 1

OUTPUT:

...
[BCB] [C3B] [C] [0] [?] [?] [?] [1] 
[BCB] [C4B] [C] [0] [?] [?] [?] [1] 
[BCB] [CMB] [C] [0] [?] [?] [?] [1]