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