say scalar map { split(/ /, $_) } ($a =~ /^Test (.*)/img);