use strict;
use warnings;
use autodie;

open my $f, '<', 'data.txt';
my @words = split /\n\n+/, do { local $/; <$f> };
close $f;