s/^(.*?)foo/my $x=$1; $x.($x=~m[toto]?"foo":"bar")/e