$1 =~ "ab(.)?d(..)g" { $c1 = "\1"; $c2 = "\2"}
