$text =~ s/a/$neu/ for 1,2,3;