my $newvalue = "foobar"; foreach () { s/()/$1$newvalue$2/; print; } __DATA__