$a =~ s/foo/$1/