$string =~ s/($pattern)/$1$stuffToAdd/g;

##</code><code>##

  Start | Programs | ActiveState ActivePerl | Documentation