#!/usr/bin/perl

opendir(DIR, '/export/home/cad/data/products') || die "Can't opendir D
+ir: $!";
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"; 
    }
};
[download]