Ok I cleaned it up a bit, I sill have the same problem though, only now I also have an uniitalized value for INFO. The file is still not being read.
<CODE>
"#!/usr/bin/perl -w
opendir (EXA, "/export/home/cad/data/products") || die "no dir?: $1";
foreach $name(sort readdir (EXA))
{
print "$name\n";
open(INFO, <"/export/home/cad/data/products/$name/source/$name.bom">) || die "no dir...grrrr?: $1";
@lines = <INFO> ; }
foreach $line (@lines) {
$line=~ s/BOARDPLACEMENT_BOM brd//;
print "\n $line ";
print "\n ------------------------ \n";
}"
<CODE>