my @array = map{ "term$_" } split 'term', do{ local $/; <DATA> };