# optional read without Path::Tiny
my @words = do { local(@ARGV, $/) = $filename; <> =~ /^.+$/gm };

# or
my @words = do { local(@ARGV, $/) = $filename; split /\n/, <> };