#!/usr/bin/perl

opendir(DIR, '/export/home/cad/data/products') || die "Can't opendir Dir: $!";
my @Dirs = grep { /^[^.].*/ && -d "/export/home/cad/data/products/$_" } readdir(DIR);
closedir DIR;

foreach $name (@Dirs) {
	open(FILE,"</export/home/cad/data/products/$name/source/$name.bom") || die "Can't open $file: $!";
	my @lines=<FILE>;
	close(FILE);
	
	foreach $line (@lines) { 
		$line=~ s/BOARDPLACEMENT_BOM brd//; 
		print "\n $line "; 
		print "\n------------------------ \n"; 
	}
};