Select Code to Download

my $names=join("|",map {chomp $_ ?"":$_} <STDIN>);

my $names=join("|",map {chomp $_ ?$_:""} <STDIN>);