in reply to Re^2: Best approach to creating a regex from a filehandle
in thread Best approach to creating a regex from a filehandle

You're right... it can be simplified using a single map 
my $blacklist_regex = join "|" => map { chomp; "(?:$_)"} <BLIST>;

[download]

In Section Seekers of Perl Wisdom