use Nested::Loops qw( Filter );
my $names = join '|', Filter { chomp } <STDIN>;