"#!/usr/bin/perl -w 
init_open();                
opendir (EXA, "/export/home/cad/data/products") || die "no dir?: $1";
foreach $name(sort readdir (EXA)) 
 {
   print "$name\n";
   sub init_open {
open(INFO, "/export/home/cad/data/products/$name/source/$name.bom") || die "no dir: $1"; 
 @lines = <INFO> ;  }  
foreach $line (@lines)  {      
    $line=~tr/(//d;                   #Cut out all the exa garbage
    $line=~ s/COMP//;
    $line=~ s/BOARDPLACEMENT_BOM brd//; 
   print "\n    $line  "; 
close(INFO) ;  
}
  print "\n ------------------------ \n";    
 }
    closedir(EXA);"