c:\@Work\Perl>perl -wMstrict -le
"my $s = 'barbar';
 $s =~ s/(?<=bar)bar/foo/;
 print qq{'$s'};
"
'barfoo'