#!/usr/bin/perl -w 

use strict;

local *EXA;
local *INFO;

opendir (EXA, "/export/home/cad/data/products") || die "no dir?: $!";
foreach my $name(sort readdir (EXA)) {
	print "$name\n";

	open(INFO, "/export/home/cad/data/products/$name/source/$name.bom") || die "no dir: $!"; 
	while (my $line = <INFO>) {  
		$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);