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