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