$a =~ s/foo/foo(bar/