Select Code to Download

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

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