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

##</code><code>##

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