use Data::Dumper;

my $txt=<<EOT;
Das ist ein Test
mit mehreren Zeilen Text,
der einzelne Wörter enthält,
welche Leerzeichen voneinander Trennen.
EOT

my @data;
push(@data,[split(/\s+/,$_)]) for(split(/\n/,$txt));

# @data ist nun ein AoA
print Dumper(\@data);