Select Code to Download

my (@data, @hdrs) ;
for(<DATA>) {
...
A,X,a.x@aol.com,1111
B,Y,b.y@aol.com,0
C,Z,c.z@aol.com,2222

<record>
<Company> X </Company>
...
<Company> Z </Company>
<Phone> 2222 </Phone>
</record>