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