DB<1> $_='abc'; s/a(b)c/$1/; print $_
b
  DB<3> $_='abc'; m/a(b)c/; $_ = "$1" ; print $_
b