split evaluates its argument in scalar context, so you only get one line. Splitting one line by two newlines doesn't make much sense.

use strict;
use warnings;
use autodie;

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