use List::MoreUtils qw( apply );
my $names = join '|', apply { chomp } <STDIN>;

##</code><code>##

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