$a=~s#(foo)(bar)#$1#;