@new= map {s/$_/$_,hi/} <TEST>;