use strict;
use warnings;

my $a = q|TEST ist das Haus
vom
Test Ni Ko
Laus|;

my @words;
push @words, split(/ /, $_) for ($a =~ /^Test (.*)/img);
say join(',',@words);
say scalar @words;