Hi htmanning,
Sounds like the list in the DB is separated by CRLF (Windows style) instead of just LF (*NIX style). Two other ways you could fix it are by writing your split as split /\r?\n/, $goodorg; (handles CRLF and LF), and/or by trimming whitespace off each string via $goodorg=~s/^\s+|\s+$//g;.
I find the fastest way to see problems like this is by using Data::Dumper with its Useqq option:
use Data::Dumper;
$Data::Dumper::Useqq=1;
print Dumper($goodorg);
__END__
$VAR1 = "Company\r\nLLC\r\n";
Hope this helps, -- Hauke D |