#!/usr/bin/perl
use strict;
use warnings;

my $file = 'here
are
some
words
I
want
';

open my $fh, '<', \$file;

chomp(my @words = <$fh>);

my $pattern = join "|", @words;

print $pattern;