in reply to array of strings that matched a pattern

You can do that without a variable: 

my $string = join "\t", $text =~ /Key:\s*(\S+)\s+(\S+)\s+(\S+)\s+(\S+)
+/;

[download]

In Section Seekers of Perl Wisdom