DB<1> $_='abc'; s/a(b)c/$1/; print $_
b
  DB<2> $_='abc'; s/a(b)c/$1/e; print $_
b