Not it doesn't. I suspect you used a comma instead of a semi-colon.

By the way, there's also

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

and

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